本文整理自网络,侵删。
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 格式化输出函数(2): formatdatetime
Delphi里的compile和build都能产生可执行文件,有什么区别啊?
更多相关阅读请进入《Delphi》频道 >>