Treeview - child count eines nodes ermitteln

[Van HelF]

hallo,
ich habe folgendes problem, ich möchte die anzahl der child einträge (nur eine ebene) eines treeview auslesen.

folgender code funktioniert, allerdings nur beim 1. item:
tv.item.item[0].count <- wert stimmt
tv.item.item[1].count <- wert stimmt nicht (immer 0)

[Chemiker]

Hallo Van HelF,

ich weis nicht ob ich es richtig verstanden habe, aber ich will es mal beschreiben wie ich es verstanden habe.

Gegeben ist ein TreeView mit folgendem Aufbau:

Code:

+Ebene1
 |     |
 |     -----Ebene11
 |     -----Ebene12
 |     -----Ebene13
 |
 +Ebene2
       |
       ----Ebene21
       ----Ebene22
       ----Ebene23

So, wenn ich die Frage jetzt ich richtig verstanden habe, willst Du jetzt die Anzahl ermitteln von Ebene11 – Ebene23, das heißt in dem Beispiel währe das Ergebnis 6.
Man kann mit der Eigenschaft Level von TTreeNode die Anzahl ermitteln.

In dem Beispiel wird der Text von Ebene11 - Ebene23 in eine Listbox ausgegeben.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Knoten: TTreeNode;
begin
  Knoten:= TreeView1.Items.GetFirstNode; // auf den ersten Knoten setzen.
  while Knoten <> NIL do
  begin
    if Knoten.Level=1 then   
    begin
      Listbox1.Items.Add(Knoten.Text);  // Es werden nur die Knoten auf der 2 Ebene ausgeben.
    end;
    Knoten:= Knoten.GetNext
  end;
end;

Bis bald Chemiker

[Garfield]

Zitat von Van HelF:

folgender code funktioniert, allerdings nur beim 1. item:
tv.item.item[0].count <- wert stimmt
tv.item.item[1].count <- wert stimmt nicht (immer 0)

Bei meinem Delphi funktioniert beides nicht. Da wäre - um Deinen Variablennamen zu verwenden - tv.items[0] der erste Eintrag des Treeviews und tv.items[1] der zweite. Wenn tv.items[0] Childs besitzt wäre tv.items[1] das erste Child.

[oki]

Hi,

schau mal in der Hilfe unter GetNextChild nach. Damit solltest du auch das Problem mit einer variablen "Ebene" in den Griff bekommen.

Du rufst zu deinem Knoten (der die Subknoten enthält) GetNextChild auf. ist der ungleich nil, so gibt es schon mal einen Subknoten. Dann kann deine while-Schleife mit abschließenden GetNext kommen. Ist das dann nil, hast du alle Subknoten(-Einträge).

Gruß oki