TreeView als *.html-Datei speichern

**Reinhardtinho**

Nabend,

Ich hoffe mir kann jemand bei meinem Problem behilflich sein. Ich möchte die Struktur eines TreeViews in eine *.html-Datei speichern und mein Problem ist, dass ich wohl eine Endlosschleife programmiert habe ...

Hier erst mal die Prozedur die den TreeView abspeichern soll:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.FillHTMLNodes(var StartIndex : Integer; EndNode : TTreeNode);

var

  i            : Integer;

  Node1, Node2 : TTreeNode;

  NewIndex     : Integer;

  CurItem      : TTreeNode;

begin

  Node1 := JvTreeView1.Items[StartIndex];

  Writeln(FText, '<ul>');

  if (Node1.Index <> EndNode.Index) then

  begin

    repeat

      Writeln(Ftext, '[*]' + Node1.Text + '');

      Node2 := Node1.GetNext;

      if (Node2.Index < EndNode.Index) then

      begin

        if (Node2.Level <> Node1.Level) then

        begin

          NewIndex := Node2.Index;

          FillHTMLNodes(NewIndex, JvTreeView1.Items[JvTreeView1.Items.Count - 1]);

        end (* of if *)

        else Node1 := Node1.GetNextVisible;

      end; (* of if *)

      Writeln(FText, '[/list]');

    until (Node2.Index = EndNode.Index);

    Writeln(FText, '[/list]');

  end; (* of if *)

end;

und hier wird sie aufgerufen:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.BitBtn_SaveHtmlClick(Sender: TObject);

var

  StartIndex : Integer;

begin

  if (JvTreeView1.Items.Count > 0) then

  begin

    if JvSaveDialog1.Execute then

    begin

      AssignFile(FText, JvSaveDialog1.FileName);

      Rewrite(FText);

      try

        Writeln(FText, '<html>');

        Writeln(FText, '<head>');

        Writeln(FText, '<title>FolderTree</title>');

        Writeln(FText, '</head>');

        Writeln(FText, '<body>

');

        Writeln(FText, 'Verzeichnis und Dateiliste für ' + DirName + '

');

        StartNode := 0;

        FillHTMLNodes(StartIndex, JvTreeView1.Items[JvTreeView1.Items.Count-1]);

        Writeln(FText, '</body>');

        Writeln(FText, '</html>');

      finally

        CloseFile(FText);

      end;

    end; (* of if *)

  end (* of if *)

  else ShowMessage('Es sind keine Ordner/Dateien vorhanden!');

end;

Jedenfalls kommt, wenn ich den TreeView abspeichere, immer die gleiche Sequenz.

Erst hat Node2 den Index 0, dann 1, dann 2 und dann wieder 0 (???).

Ich habe auch oben schon einmal den rekursiven Aufruf der Prozedur ausgeklammert, aber daran lag es nicht, der Fehler blieb immer noch bestehen.

Also wenn Node1.Index = 2 ist und oben Node1.GetNext ausgeführt wird, erhält Node2 den Knoten mit dem Index 0. Somit kann die Abbruchbedingung nie erfüllt werden.

Ich hoffe ihr findet vielleicht den groben Schnitzer - den ich nicht finde, falls da einer ist oder könnt mir anderweitig behilflich sein.

Ich bedanke mich und wünsche eine geruhsame Nacht...

Lorenz

TreeView als *.html-Datei speichern

TreeView als *.html-Datei speichern

Forumregeln