Zwei Tabel als Baum Darstellen

[raiguen]

Moin
Vom Prinzip her machst Du es so:

Delphi-Quellcode:

procedure BaumErstellen;
  var
    tn0, tn1: TTreeNode;
begin
  if not Table1.Active then Table1.Open else Table1.First;
  if not Table2.Active then Table2.Open else Table2.First;

  tvBaum.BeginUpdate; //--ständiges Neuzeichnen unterbinden
  tvBaum.Items.Clear; //--alten Baum leeren

  while not Table1.Eof do
    begin 
      //-- Ebene 0 -> Hersteller
      tn0 := tvBaum.Items.Add(nil, Table1.FieldByName('FIRMA').Text);
      tn0.HasChildren := True;

      //-- Ebene 1 -> Bezeichnung
      while not Table2.Eof do
        begin
          tn1 := tvBaum.Items.AddChild(tn0, Table2.FieldByName('BEZEICHNUNG').Text);
          tn1.HasChildren := False;
          Table2.Next;
      end;
      Table1.Next;
  end;

  tvBaum.EndUpdate; //--erstellten Baum anzeigen
end;
{
Somit würde Dein Baum dann so aussehen:
+ Metecno
   G4
   Hipertec
   Hipertec Sound
+ Thyssen
}