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;
//排序
var
sl: TStringList;
sl.CustomSort(LogLineCompare);