Treeview

[_BlackDragon_]

Hi erstmal,

wenn ich das richtig verstanden habe und so wie es aussieht, fügst du sämtliche Knoten immer als Unterknoten von "MyTreeNode1" hinzu.
Du müsstest, wenn du Unterkategorien hast, diese einem Knoten der Hauptkategorie unterordnen.

Pseudo-Code:

Delphi-Quellcode:

{ Hauptkategorie }

for iCat := 0 to Categories.Count-1 do
begin
  tnCat := TreeView.Add(nil,Categories[iCat].Name);

  { Jeweilige Unterkategorien der aktuellen Kategorie unterordnen }
  
  for iSubCat := 0 to Categories[iCat].SubCategories.Count-1 do
  begin
    tnSubCat := TreeView.Add(tnCat,Categories[iCat].SubCategories[iSubCat].Name);
  end;
end;

Das Problem bei dir ist, du lädst erst die "Haupt"-Kategorien und wenn diese durch sind die Unterkategorien.

Vlt. hat das ja schon etwas geholfen, ansonsten einfach nochmal nachhaken.

Gruß Olli

PS: Wenn du nicht vorher weißt, wieviele Unterkategorien es gibt (also wie tief die Baumstruktur ist), wirst du um Rekursion nicht drumherum kommen.

[roland9999]

Hallo

vielen Dank für die Tipps.

Zitat:

1.) SQL - Anweisungen kann man doch schon im Objektinspektor zuweisen.
Es ist nicht nötig dies immer wieder im Code zu tun.

Ich weiß, da ist eine schlechte Angewohnheit von mir. Der Quelltext ist dadurch ein wenig unübersichtlich.

Zitat:

3.) schlechte Namensgebung (q1, q2, q3,q4, MyTreenode1)

Ich probiere es nur aus. Nachher im eigentlichen Programm werde ich entsprechene Bezichnungen nutzen.

Eure Tipps werde ich jetzt in Ruhe ausprobieren.

Wenn's nicht klappt, melde ich mich wieder.

LG
Roland