Question

delphi 如何对N个数字判断大小相近

Answer 1

给你段代码对N个数排序，可以参考下。
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:Integer;
tmp:Integer;
arrNum:array[0..5] of Integer;
begin
arrNum[0]:= 5;
arrNum[1]:= 3;
arrNum[2]:= 1;
arrNum[3]:= 2;
arrNum[4]:= 6;
arrNum[5]:= 4;
for i:= Low(arrNum) to High(arrNum) do
begin
for j:= i to High(arrNum) do
begin
if arrNum[i] > arrNum[j] then
begin
tmp:= arrNum[j];
arrNum[j]:= arrNum[i];
arrNum[i]:= tmp;
end;
end;
end;
for i:= Low(arrNum) to High(arrNum) do
ShowMessageFmt('%d',[arrNum[i]]);
end;

Answer 2

直接放到LISTSTRING中，打开自动排序。