Und noch was: Arrayausgabe in ein TV

[ibp]

Delphi-Quellcode:

procedure TForm1.UpdateDetailAuswahl;
var
  i,j: integer;
  node:ttreenode;
begin
  Form1.DetailAuswahl.Items.Clear;

  for i := 0 to high( TProduktion ) do
  begin
    node:=Form1.DetailAuswahl.Items.Add(nil, TProduktion[i].Name);
    
    for j := 0 to high( TProduktion[i].Maschinen ) do
      Form1.DetailAuswahl.Items.AddChild(node, TProduktion[i].Maschinen[j].Name);
  end;
end;

versuch es mal so!