本文整理自网络，侵删。
//感谢高手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 webservice 中采用 tsoapattachment 传输文件
更多相关阅读请进入《Delphi》频道 >>
