Sortierfunktion für Treestruktur

[omata]

Hier mal Beispiele für das Auslesen aus einer DB:
MsSQL,
MySQL

Eine Sortierfunktion für den Treeview könnte so aussehen...

Delphi-Quellcode:

procedure TForm.TreeViewCompare(Sender: TObject; Node1, Node2: TTreeNode;
  Data: Integer; var Compare: Integer);
begin
  if Node1.Text < Node2.Text then
    Compare:=1
  else if Node1.Text > Node2.Text then
    Compare:=-1
  else
    Compare:=0;
end;

Über Compare kann man festlegen, wie sortiert wird.
Das überhaupt sorttiert wird kann man mit TreeView.SortType festlegen.



Gruss
Thorsten