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;
 

相关阅读 >>

使用indy解决base64回车换行问题

Delphi弹出信息框大全

Delphi 时间耗时统计

Delphi的rtti实现数据集的简单对象化

Delphi 循环 low high 用法

在Delphi xe3中如何crc验证函数？

Delphi getmem(mystring,1024);//开辟1024个字节freemem(mystring,1024);//释放

Delphi listbox批量选中转移或删除

Delphi 制作放两个小图片的按钮

Delphi开发中子窗口不能置顶的问题

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

转载请注明出处：木庄网络博客 » delphi 文本列数值排序从小到到