TStringList absteigend sortieren

[Bjoerk]

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;