【delphi源码】选择排序函数

选择排序函数
第一遍:从左到右扫描，找到最小的元素与第一位元素对比交换
第二遍:从左到右扫描，找到第二小的元素与第二位元素对比交换
TargetArr为要排序取中位数的数组；
nmax为数组中的数值个数
function sort(var TargetArr:array of Double;nMax:Integer);
var
Temp : Integer;
i,j,Dest : Integer;
begin
for i:=0 to nMax-1 do
begin
Dest :=i;
for j:= i+1 to nMax-1 do
begin
if TargetArr[j] Dest :=j;
end;
if Dest<>i then//如果本次扫描第一位不是最小的就和最小的(Dest位)的元素互换
begin
Temp := TargetArr[i];
TargetArr[i] := TargetArr[Dest];
TargetArr[Dest] := Temp;
end;
end;
end;