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