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 )...