Darius Blaszijk wrote:
Hi,
If you mean I should try something like this:
repeat
writeln(Format('%d %s', [CodeNode.Desc, CodeNode.DescAsString]));
CodeNode := CodeNode.Next;
if CodeNode.Desc = ctnImplementation then
CodeNode := CodeNode.FirstChild;
until CodeNode = nil;
Then unfortunately it doesn't work. I already thought of that too.
Whay if you try the most usual traversion:
procedure Traverse(CodeNode)
begin
if CodeNode <> nil then
begin
writeln(Format('%d %s', [CodeNode.Desc, CodeNode.DescAsString]));
Traverse(CodeNode.FirstChild);
Traverse(CodeNode.Next);
end;
end;
Paul.
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
