中易网

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

答案:3  悬赏:10  
解决时间 2021-01-17 07:42
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 声明为全局变量追问List集合是Delphi刚加上的吗?怎么以前没有。我接触过c++,java,这两种都有。追答早就有stringlist 实际上delphi的设计理念不差
全部回答
Delphi很久很久没玩,不过任何一种高级编程语言都会有排序函数可调用,要去查资料.
我说知道的C# VB.NET,都有这样的函数可用,否则,可以放弃该编程语言了。
不过我对Delphi不熟悉,你应该自己去查找资料。
delphi里没有。如果你不想自己写,可以在网上搜现成的代码
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
二八大杠老当益壮什么意思
如果我向你伸手,你会不会跟我走这句话出自哪
400米注意事项
爱尚美甲工作室地址在什么地方,我要处理点事
京瓷1320d每次要加几盒粉
gameboy(小时候玩的黑白机) 七龙珠—悟空飞翔
怎样将excelle中的两个表格合并成一个
上海到海安县怎么行?
美国空军谈论“疣猪”A-10就是“叛徒”?
向左用英语怎么说?
刚学机械加工,请问金属每次切割后为了精度都
1000万存银行为什么被告知82年后才能取?
饭团怎么做各种味道的
dnf拍卖行加破极兵刃属性的假紫怎么找?
如何填写企业所得税优惠事项备案
推荐资讯
「超简单」自制麦当劳早餐薯饼怎么做最好吃
计算机字长8位,试用如下所给芯片设计一个存
我要类似这种魔卡少女樱
盲人按摩理疗中心怎么去啊,有知道地址的么
新房供暖开发商怎么写会议纪要
天津市世航货运服务有限公司(港湾街2号大连海
Sin多少度等于负二分之根号三
带心字和月字的口号
土地竞拍了到动工建修需要的多长时间?
寻找音乐达人推荐音乐
春江花月夜开头八句写了什么意象
饥荒蚁狮领地怎么过 饥荒蚁狮领地通过方法
手机登qq时,显示手机磁盘不足,清理后重新登
刺客的套装怎么选啊?