本文整理自网络,侵删。
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 xe8中的正则表达式提取日语(平假名,片假名,汉字)
Delphi firedac 下的 sqlite 创建数据库
Delphi xe5 android 使用system.zip单元释放资源文件
更多相关阅读请进入《Delphi》频道 >>