Schau die an, welche Ergebnisse AnsiCompareStr liefert und schreib' die Function so um, daß du diese Ergebnisse hast, indem du StrToInt(List[Index1]) mit StrToInt(List[Index2]) vergleichst. Es gibt drei Fälle.
Delphi-Quellcode:
function Compare(List: TStringList; Index1, Index2: Integer): Integer;
begin
Result:= ?;
if StrToInt(List[Index1]) > StrToInt(List[Index2]) then
Result:= ?
else
if StrToInt(List[Index1]) < StrToInt(List[Index2]) then
Result:= ?;
end;