AlphaSort

[Snyderburn]

Hi!

Gibt es einen befehl, der ganz einfach rückwärts, nicht von A-Z, sondern von Z-A sortiert??? So etwas wie: not.AlphaSort??????

mfg
Snyderburn

[sakura]

Was willst Du denn sortieren? Einen direkten Befehl gibt es nicht, aber manche einfache Lösung ;-)

...:cat:...

[Snyderburn]

Ich will in einem Baum (Treeview) die Daten absteigend, oder auch nach anderen Kreterien sortiern. Aufsteigend geht ja ohne probleme mit AlphaSort!

mfg
Snyderburn

[Luckie]

Dann mußt du eben selbst was implementieren. bei den Tuts hat es ein Sortier Tutorial.

[sakura]

Es geht einfacher ;-) Schau Dir mal das Ereignis OnCompare des TTreeView an, damit kannst Du die Sortierreihenfolge bestimmen. Die Sortiermethode ruft dieses Ereignis mit den aktuellen Nodes auf und Du gibst -1,0,1 zurück, entsprechend dem, wie sortiert werden soll ;-)

...:cat:...

[Snyderburn]

Danke für die Hilfe mit onCompare! Aber, hast du vielleicht ein kleines Beispiel? In der Hilfe von Delphi steht leider keins drin!!!!

mfg
Snyderburn

[sakura]

In anhängender ZIP File eine Demo für Delphi 3 und neuer ;-)

Die eigentliche Lösung liegt hier:

Delphi-Quellcode:

procedure TForm1.trvSampleCompare(Sender: TObject; Node1, Node2: TTreeNode;
  Data: Integer; var Compare: Integer);
begin
  if chkReverse.Checked then
    // rückwärts sortieren
    Compare := 0 - CompareStr(Node1.Text, Node2.Text)
  else
    // normal sortieren
    Compare := CompareStr(Node1.Text, Node2.Text);
end;

...:cat:...

[Snyderburn]

Danke für die Hilfe! Funktioniert bestens!

mfg
Snyderburn

[sakura]

Bitte, gern geschehen ;-)

...:cat:...