Einzelnen Beitrag anzeigen

Benutzerbild von DGL-luke
DGL-luke

Registriert seit: 1. Apr 2005
Ort: Bad Tölz
4.149 Beiträge
 
Delphi 2006 Professional
 
#2

Re: ttreeview ab einem Unterknoten alles auslesen

  Alt 7. Aug 2006, 17:27
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
  Mit Zitat antworten Zitat