Treeview Knoten auswerten

[Andreas Wohlmuth]

Hallo zusammen,

Ich würde gerne beim Treeview die Hirachie mit ausgeben -> 1.1, 1.2, 1.2.1 usw. für ein Inhaltsverzeichnis. Leider reichen mir da wohl count und Level nicht aus. Ich vermisse den Wert X-ter Knoten von Parent.

Hat jemand eine Idee

Danke und Grüsse
Andreas

[wp]

Hallo Andreas,

Du musst rekursiv den Baum durchlaufen, ähnlich wie:

<PRE>procedure Gliederung(Nodes:TTreeNodes; List:TStringList);</PRE>

<PRE> procedure ProcessNode(Node:TTreeNode; PreText:string);
var
N : TTreeNode;
counter : integer;
s : string;
begin
counter := 0;
if Node=nil then N := Nodes[0] else N := Node.GetFirstChild;
while N<>nil do begin
inc(counter);
if Node=nil then
s := Format('%d', [counter])
else
s := Format('%s.%d', [PreText, counter]);
List.Add(Format('%s %s', [s, N.Text]));
ProcessNode(N, s);
N := N.GetNextSibling;
end;
end;</PRE>

<PRE>begin
ProcessNode(nil,'');
end;</PRE>

Gruß, Werne

[Andreas Wohlmuth]

Hallo Werner,
Danke für den Tipp, werde ich gleich mal ausprobieren.

Grüsse
Andrea