对结构数组进行排序
-----------------数据声明---------------------------------
type guailist=record
id:Cardinal;
p:single;
end;
guainew:array[0..1000] of guailist;
idk:Cardinal;
-----------------排序过程---------------------------------
for m:=0 to length(guainew)-1 do begin
j:=m; ktest:=guainew[j].p ;
for i:=m+1 to length(guainew) do begin
if (guainew[i].p <ktest)then begin j:=i;ktest:=guainew[i].p;end;
if j> m then begin
idk:=guainew[m].id ;
guainew[m].id:=guainew[j].id;
guainew[j].id:=idk;
end;
end;
end;
-------------------------事故--------------------------------
我定义的结构数据guainew里有id和p两个数据,我要比较p的大小,将guainew数组以p从小到大升序排列。然后再把guainew中的id取出来用
但是我上面这段代码一直没有排序成功,得出来的结果还是混乱排列的。
如果我在 if j> m then begin
{代码X}
end;
代码X处同时交换id和p的数据,那么我输出的时候id和p都会变成空的。。。
代码X处如果以idk:=guainew;的方式交换数据,id和p还是会变成空的。。。
只剩20分了..各位高手help```
[解决办法]
不用写得这么乱。
-----------------排序过程---------------------------------
for i := 0 to length(guainew)-2 do
begin
ktest := guainew[i].p;
for j:=i+1 to length(guainew)-1 do
begin
if (guainew[j].p < ktest)then
begin
guainew[i].p := guainew[j].p;
guainew[j].p := ktest;
ktest := guainew[i].p;
end;
end;
end;