Forum: Sonstige Fragen zu Delphi
Delphi
by sakura,
29. Sep 2003
Bitte, gern geschehen ;-)
...:cat:...
Forum: Sonstige Fragen zu Delphi
Delphi
by sakura,
29. Sep 2003
In anhängender ZIP File eine Demo für Delphi 3 und neuer ;-)
Die eigentliche Lösung liegt hier:
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)
Forum: Sonstige Fragen zu Delphi
Delphi
by sakura,
29. Sep 2003
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:...
Forum: Sonstige Fragen zu Delphi
Delphi
by sakura,
29. Sep 2003
Was willst Du denn sortieren? Einen direkten Befehl gibt es nicht, aber manche einfache Lösung ;-)
...:cat:...