本文整理自网络,侵删。
//感谢高手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 判断指定字符串是否开头 startstext用法
Delphi实现获取文件及文件夹大小(支持超过2g的大文件)
更多相关阅读请进入《Delphi》频道 >>