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