AlphaSort

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

......