Delphi中，有没有对数组进行排序的函数

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 声明为全局变量