Hallo,
ich hoffe, ich habe dein Problem richtig verstanden. Wenn ja, habe ich diese kleine, UNGETESTETE, Funktion für dich geschustert, Kann sehr gut sein, dass ich mich bei manchen property-Namen vertan habe. Das Prinzip soltle aber klar sein. Übrigens rücke ich normalerweise nicht mit Tabs ein, das liegt daran, dass ich das ganze in einem
HTML-Editor geschrieben habe, weil ich ihn gerade schon offen hatte und keinen bock, die
IDE zu starten^^
Delphi-Quellcode:
function NodeAsHTML(Node: TTreeNode): string;
var
i: integer;
subnode: TTreeNode;
begin
result := '<ul>';
for i := 0 to node.count-1 do
begin
subnode := node.nodes[i];
result := result+format('[*]%s',[subnode.text]);
if subnode.count > 0 then
result := result+NodeAsHTML(subnode);
end;
result := result+ '[/list]';
end;
//Edit: Doch nochmal was zur Funktionsweise: Die Funktion listet alle Subknoten des Übergebenen Start-Knotens auf.