TreeView als *.html-Datei speichern

[Namenloser]

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.