StringList absteigend sortieren

arnydaniel · Beiträge: 80 hoffentlich bald Linux Delphi 6

Hi,

wie kann ich eine TStringList absdteigend sortieren?
Hab schon rausgekriegt, dass man dazu customsort verwenden kann, mit welchem man dann noch eine funktion aufrufen muss.
Wie genau das gehen soll raff ich aber nicht.
Könntet ihr vielleicht sogar mal schnell den entsprechenen Codeausschnitt posten?

Danke

_________________
Wenn jeder nur an sich denkt, wird an jeden gedacht.

Narses · Verfasst: Di 07.06.05 14:53

Moin!

Wenn du die StringList nicht im Ganzen irgendwohin zuweisen willst, dann sortier das Ding normal und geh von hinten durch die Liste. :wink:

Ansonsten steht doch in der OH alles, was man wissen muss.

cu
Narses

smiegel · Verfasst: Di 07.06.05 15:23

Hallo,

sofern Du die Methode CustomSort nutzen willst, musst Du folgendermassen vorgehen:

Implementation einer Callbackroutine, die die Liste - wie gewünscht - sortiert:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

function MySortAbsteigend(aListe:TStringList; Index1, Index2:Integer):Integer;
begin
  Result:=CompareStr(aListe.Strings[Index1], aListe.Strings[Index2]);
  // da die Liste absteigend sortiert werden soll, einfach Result umdrehen
  Result:=-Result
end; // MySortAbsteigend

Aufgerufen wird die Sortierroutine dann wie folgt:

markieren

Delphi-Quelltext

1:
2:
3:

...
MyStringList.CustomSort(@MySortAbsteigend);
..

_________________
Gruß Smiegel
Ich weiß, daß ich nichts weiß, aber ich weiß mehr als die, die nicht wissen, daß sie nichts wissen. (Sokrates)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme