Delphi 中，有没有对数组进行排序的函数？
答案:3 悬赏:10
解决时间 2021-01-17 07:42
- 提问者网友：雾里闻花香
- 2021-01-16 12:40
Delphi 中，有没有对数组进行排序的函数？
最佳答案
- 二级知识专家网友：雪起风沙痕
- 2021-01-16 13:51
就是放入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 声明为全局变量追问List集合是Delphi刚加上的吗？怎么以前没有。我接触过c++，java，这两种都有。追答早就有stringlist 实际上delphi的设计理念不差
同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 声明为全局变量追问List集合是Delphi刚加上的吗？怎么以前没有。我接触过c++，java，这两种都有。追答早就有stringlist 实际上delphi的设计理念不差
全部回答
- 1楼网友：迷人又混蛋
- 2021-01-16 14:51
Delphi很久很久没玩,不过任何一种高级编程语言都会有排序函数可调用,要去查资料.
我说知道的C# VB.NET,都有这样的函数可用，否则，可以放弃该编程语言了。
不过我对Delphi不熟悉，你应该自己去查找资料。
我说知道的C# VB.NET,都有这样的函数可用，否则，可以放弃该编程语言了。
不过我对Delphi不熟悉，你应该自己去查找资料。
- 2楼网友：等灯
- 2021-01-16 14:02
delphi里没有。如果你不想自己写，可以在网上搜现成的代码
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息