DELPHI7选择排序（selection_sort）

DELPHI7选择排序（selection_sort）
选择排序（Selection sort）是一种简单直观的排序算法。它的工作原理如下。首先在未排序序列中找到最小（大）元素，存放到排序序列的起始位置，然后，再从剩余未排序元素中继续寻找最小（大）元素，然后放到已排序序列的末尾。以此类推，直到所有元素均排序完毕。
function swap(a:Pinteger; b:Pinteger):Integer;
//Pinteger是整型指针
var
temp:integer;
begin
temp:=a^;//获取a的值，并赋值给temp
a^ := b^;//a的值和b的值互换
b^ := temp;//把b的值设置为temp
Result:=0;
//传进来的参数为指针，a^ b^为获取指针对应的值
end;

procedure TForm1.Button1Click(Sender: TObject);
var
//MyArr:array[0…9] of Integer = (10,5,2,8,9,1,3,6,7,4);
//这样做是错的，不能初始化静态变量

MyArr:array[0…9] of Integer;
i,j:integer;
min:integer;
begin
MyArr[0]:=5;
MyArr[1]:=15;
MyArr[2]:=2;
MyArr[3]:=8;
MyArr[4]:=9;
MyArr[5]:=1;
MyArr[6]:=3;
MyArr[7]:=6;
MyArr[8]:=7;
MyArr[9]:=4;
for i:=0 to length(MyArr) -1 do
begin
min:=i;
for j:=i+1 to length(MyArr)-1 do
begin
if MyArr[j]<MyArr[min] then
min:=j;
end;

//值进去的参数要是指针，所以要在前面加@
swap(@MyArr[min],@MyArr[i])
end;

//把排好的数组输出到edit1
for i:=0 to length(MyArr) -1 do
begin
edit1.Text:=edit1.Text+ inttostr(MyArr[i])+’,’;
end;

end;