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:
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:
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
Ich habe viel von meinem Geld für Alkohol, Weiber und schnelle Autos ausgegeben ... Den Rest habe ich einfach verpraßt.
George Best - 22.05.1946 - 25.11.2005 - nordirischer Fußballspieler