Delphi中，有没有对数组进行排序的函数？
就是放入Tstringlist内
同sort方法排序
然后再输出到数组
至于再返回来，没什么好办法，还是保留原来没排序之前的Stringlist吧
var
arr1:array [0..9] of integer;
s1:Tstringlist;
i:integer;
begin
arr1[0]:=6;
arr1[1]:=5;
arr1[2]:=4;
arr1[3]:=3;
arr1[4]:=2;
arr1[5]:=1;
arr1[6]:=0;
arr1[7]:=9;
arr1[8]:=7;
arr1[9]:=8;
s1:=Tstringlist.Create;
s2:=Tstringlist.Create;
for i:=0 to length(arr1)-1 do
begin
s1.Add(inttostr(arr1[i]))
end;
s2.Text:=s1.Text;
s1.Sort;
for i:=0 to s1.Count-1 do
begin
arr1[i]:=strtoint(s1.Strings[i]);
end;
showmessage(inttostr(arr1[0]));
showmessage(inttostr(arr1[1]));
showmessage(inttostr(arr1[2]));
end;
其中 s2就保存未排序之前的数据 s2 声明为全局变量