本文整理自网络,侵删。
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 10 seattle的android应用程序中使用参数启动服务
Delphi 2009 泛型容器单元(generics.collections)[5]: tobject...<t> 系列
Delphi firedac 下的 sqlite [12] - 备忘录
更多相关阅读请进入《Delphi》频道 >>