Rekursion! Das Wort heißt Rekursion!
Delphi-Quellcode:
procedure Grab(tns: TTreeNodes);
var node: TTreeNode;
s: string;
begin
n := tns.getFirstChildNode;
while Assigned(n) do
begin
s := n.Value //mit s kannst du jetzt machen was du willst
Grab(s.ChildNodes); //hier wird rekursiert!
n := tns.GetNextSibling(n);
end;
end;
Das ist jetzt so schnell aus dem Gedächtnis getippt, die code completion sollte dir helfen, da die richtigen Bezeichner reinzutun.
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1