TreeView: TreeNode -> untergeordneter Eintrag

[DieFliege]

Hallo Detlef,

wieder mal vielen Dank!

Dein Tipp mit den Zwischenvariablen war goldrichtig.

Für alle, die es interessiert, hier noch mal mein alter Code und darunter der neue funktionierende:

ALT (mit Fehler):

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  PA: Integer; //Parent Anzahl
  PZ: Integer; //Parent Zähler
  CA: Integer; //Child Anzahl
  CZ: Integer; //Child Zähler

begin
  PZ := 0;
  CZ := 0;
  PA := listbox1.Items.Count; //Anzahl der Einträge in der Listbox1 ermitteln
  CA := listbox2.Items.Count; //Anzahl der Einträge in der Listbox2 ermitteln

  while PZ < PA do
    begin
      treeview2.Items.Add(nil, listbox1.Items[PZ]);
          while CZ < CA do
            begin
              treeview2.Items.AddChild('XXXXX', listbox2.Items[CZ]); // <---- Hier ist der Knackpunkt (vermute ich)
              CZ := CZ + 1;
            end;
      PZ := PZ + 1;
      CZ := 0;
    end;
end;

NEU (funktioniert):

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  PA: Integer;  //Parent Anzahl
  PZ: Integer;  //Parent Zähler
  CA: Integer;  //Child Anzahl
  CZ: Integer;  //Child Zähler
  myNode: TTreeNode;

begin
  PZ := 0;
  CZ := 0;
  PA := ListBox1.Items.Count; //Anzahl der Einträge in der Listbox1 ermitteln
  CA := ListBox2.Items.Count; //Anzahl der Einträge in der Listbox2 ermitteln

  while PZ < PA do
    begin
      myNode := TreeView2.Items.Add(nil, ListBox1.Items[PZ]);
          while CZ < CA do
            begin
              TreeView2.Items.AddChild(myNode, ListBox2.Items[CZ]); 
              CZ := CZ + 1;
            end;
      PZ := PZ + 1;
      CZ := 0;
    end;
end;

Vielen Dank an alle die mir geholfen haben, ein echt prima Forum! Und Detlef - nun darf ich mein Programm sogar "Version 1.1" nennen

LG DieFliege