本文整理自网络,侵删。
function Compare(List: TStringList; Index1, Index2: Integer): Integer;var S1, S2: string;begin S1 := List[Index1].Substring(0,11); S2 := List[Index2].Substring(0, 11); Result := CompareStr(S1, S2);end;
//排序varsl: TStringList;sl.CustomSort(LogLineCompare);
相关阅读 >>
Delphi xe webbroker 开发,解决 response 返回中文乱码问题
Delphi idhttp post json 上传 php 接收
Delphi 递归实现从m 个集合中 任取一个元素 生成组合
更多相关阅读请进入《Delphi》频道 >>