delphi 文本列数值排序从小到到


本文整理自网络,侵删。

 
//感谢高手Delphi/黑夜(281309196)   分享
function MySort(List: TStringList; Index1, Index2: Integer): Integer;
var tempStr:string;
   i1,i2:Integer;
   TempArr:TArray<string> ;
begin
   TempArr :=  List[Index1].Split(['----']);
   i1 := 0;
   i2 := 0;
   if Length(TempArr)>=3 then
   begin
     tempStr := TempArr[2];
     TryStrToInt(tempStr,i1);
   end;
   TempArr :=  List[Index2].Split(['----']);
   if Length(TempArr)>=3 then
   begin
     tempStr := TempArr[2];
     TryStrToInt(tempStr,i2);
   end;
   Result := i1-i2;
end;

procedure TForm1.FormCreate(Sender: TObject);
var lList:TStringList;
begin
  lList := TStringList.Create;
  lList.Add('AAA----BBB----2----DDD');
  lList.Add('AAA----BBB----1----DDD');
  lList.CustomSort(MySort);
  ShowMessage(lList.Text);
end;

相关阅读 >>

Delphi 实现卸载windows应用程序(类似360软件管家-卸载程序)

Delphi rest客户端程序

Delphi获取本机的ip地址

Delphi 判断指定字符串是否开头 startstext用法

快速上手Delphi三十六计之输入处理篇

Delphi adoquery filter使用

Delphi 校验注册码时的技巧

Delphi编程实现sql server挂起清除

Delphi 开关显示器操作

Delphi实现获取文件及文件夹大小(支持超过2g的大文件)

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...