TStringList umgekehrt sortieren => CustomSort

[MCXSC]

Moin!

Folgender Code liegt vor:

Delphi-Quellcode:

procedure ...
var
strings: tstringlist;
begin
string := tstringlist.create;
string.add('eintrag');
string.add('sortieren');
string.add('beispiel');

Nun soll diese StringList sortiert werden. Mit "string.sort" erreiche ich aber nur eine aufsteigende Sortierung ("beispiel", "eintrag", "sortieren"). Ich will aber eine absteigende Sortierung ("sortieren", "eintrag", "beispiel") haben...

Ich habe mir auch schon diverse Threads rund um die CostomSort-Funktion angeschaut/durchgelesen... aber irgendwie bin ich zu blöd dafür (oder einfach nur zu müde )...

[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

[bigg]

moin moin,

du könntest deine Liste auch auf den Kopf stellen , indem du alle Elemente der 1.Liste von unten nach oben in eine 2.Liste kopierst. Nicht grade schnell, aber dennoch trival.

[MCXSC]

Danke @marabu

@ bigg: Ja, daran habe ich auch gedacht Nur denke ich, ist die "richtige" Version doch etwas schneller...