TStringList umgekehrt sortieren => CustomSort

[marabu]

Guten Morgen Marcel,

hier ein Beispiel für die Compare-Routine:

Delphi-Quellcode:

uses
  StrUtils;

// sort descending
function StringListSortCompare(List: TStringList; Index1, Index2: Integer): Integer;
begin
  if List.CaseSensitive 
    then Result := AnsiCompareStr(List[Index2], List[Index1])
    else Result := AnsiCompareText(List[Index2], List[Index1]);
end;

// Aufruf
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  sl.Add('eintrag');
  sl.add('sortieren');
  sl.add('beispiel');
  sl.CustomSort(StringListSortCompare);
  // ...
end;

Grüße vom marabu