Verstehe ich das richtig? Du separierst aus der Original-Stringlist die Zahlen, packst diese in eine neue Stringlist, und sortierst diese, indem du die Strings darin zu Integer umwandelst? Kann man machen ... ist aber irgendwie von hinten durch die Brust ins Auge.
So sollte es "direkt" gehen:
Delphi-Quellcode:
function SortStringListOfInteger(List: TStringList; Index1, Index2: Integer): Integer;
begin
Result := CompareString(LOCALE_USER_DEFAULT, SORT_STRINGSORT or SORT_DIGITSASNUMBERS, PChar(List[Index1]),
Length(List[Index1]), PChar(List[Index2), Length(List[Index2)) - CSTR_EQUAL;
end;