可以任意多个整数或小数按从大到小或从小到大排序！
//Reverse=True表示从大到小，Reverse=False表示从小到大！
procedure SortNum(var NumList: array of Single; Reverse: Boolean);
procedure Exchange(var Num1, Num2: Single);
var
temp: Single;
begin
temp := Num2;
Num2 := Num1;
Num1 := temp;
end;
var
i,k: integer;
begin
for i := Low(NumList) to High(NumList) - 1 do
for k := Low(NumList) + i to High(NumList) do
case Reverse of
True:
if NumList < NumList[k] then
Exchange(NumList, NumList[k]);
False:
if NumList > NumList[k] then
Exchange(NumList, NumList[k]);
end;
end;
使用用如下：
建立新工程，在窗体上添加五个（自由决定）TEdit，一个TCheckBox（命名为：cbReverse）一个Button
代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
NumList: array[1..5] of Single;
i: integer;
begin
for i := Low(NumList) to High(NumList) do
NumList := StrToFloat(TEdit(FindComponent('Edit' + IntToStr(i))).Text);
SortNum(NumList, cbReverse.Checked);
for i := Low(NumList) to High(NumList) do
TEdit(FindComponent('Edit' + IntToStr(i))).Text := FloatToStr(NumList);
end;
