Mit TTreeView Binärer Baum erstellen?

[ford42]

Hey,
ich hab jetzt schon einen binären Baum mit Pointer und records erstellt (nur halt noch nicht grafisch).

Nun soll ich diesen Baum grafisch umsetzen. Also, dass der User in ein Textfeld einen Wert eintragen kann und es diesen Wert richtig (>= = links < = rechts) einordnet.

Nun hab ich folgender record:

Code:

  
PTNode = ^TTNode;
  TTNode = record
    links:PTNode;
    rechts: PTNode;
  end;

Jedoch kapier ich nun nicht, welche Methode ich vom TTreeNode aufrufen muss, um mich durchzuhangeln (wenn der User die gewünschte Stelle markieren sollen würde, würde ich es hinbekommen, aber das ist ja nicht die Aufgabe ):


Dankeschön
LG ford42

EDIT: Den Pointer auf die richtige Stelle zeigen lassen ist ja auch relaitv einfach (nur kann ich ja nicht PTBufferNode.daten := eingabe sagen)

[nahpets]

Jeder Knoten hat ein Attribut Data. Diesem kannst Du einen Zeiger auf Deinen Record zuweisen.

Der TTreeView hat ein Ereignis onCompare.

In dem Ereignis Compare stehen Dir die beiden zu vergleichenden Knoten zur Verfügung.

Die Vergleichsmethode, die Du dort implementierst, könnte (von der Grundidee) z. B. so aussehen:

Delphi-Quellcode:

procedure TfmSHSMain.tvCompareSeite(Sender: TObject; Node1, Node2: TTreeNode; Data: Integer; var Compare: Integer);
var
          s1 : String;
          s2 : String;
begin
  if  Assigned(Node1.Data) and Assigned(Node2.Data) then begin
    s1      := Format('%s%s%s',[PMyTreeRec(Node1.Data)^.FilePath,PMyTreeRec(Node1.Data)^.Parent,PMyTreeRec(Node1.Data)^.Titel]);
    s2      := Format('%s%s%s',[PMyTreeRec(Node2.Data)^.FilePath,PMyTreeRec(Node2.Data)^.Parent,PMyTreeRec(Node2.Data)^.Titel]);
    Compare := CompareText(s1,s2);
  end else begin
    Compare := CompareText(Node1.Text,Node2.Text);
  end;
end;

Das Sortieren des Baumes könnte dann z. B. in dieser Art erfolgen:

Delphi-Quellcode:

procedure TfmSHSMain.acBaumSortierenExecute(Sender: TObject);
begin
  tv.SortType := stBoth;  // tv ist der TTreeView
  tv.Items.AlphaSort(true);
end;