Hallo Zusammen,
ich stehe mal wieder vor einem Wald und finde den passenden Baum nicht.
Zum Problem:
Ich habe die ListBox1, in der die Parents aufgeführt werden und die ListBox2 worin die Childs sind. Nun möchte ich den ersten Eintrag aus der ListBox1 in TreeView2 einfügen, was funktioniert. Nun sollen die Childs zum ersten Parent eingetragen werden, dann das 2. Parent und wieder die Childs.
Irgendwo habe ich einen Denkfehler, ich komme aber nicht drauf. Damit klar ist, was ich vor habe, erst mal 2 Screens:
So habe ich das bisherige Ergebnis:
So soll es aber aussehen:
Diesen Quelltext habe ich:
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;
Ich weiß, dass ich dem Treeview irgendwie klar machen muss, unter welchem Parent ('XXXXX') was für ein Child soll, aber wie gesagt - Ich finde den richtigen Baum einfach nicht.
Könnt Ihr mir noch einmal einen Tipp geben? Wäre prima. Vielen Dank schon mal!
LG DieFliege