Hoi,
volgens mij bedoel je zoiets:
Code:
procedure TForm3.VerderClick(Sender: TObject);
var
F : TextFile;
x : integer;
begin
AssignFile(F, Label1.Caption + ' ' + 'menu.html');
Rewrite(F);
WriteLn(F, '<html>');
WriteLn(F, '<title>'+ Form2.Edit1.Text + '</title>');
WriteLn(F, '<head></head>');
WriteLn(F, '<body>');
WriteLn(F, 'Menu <br>');
for x := 0 to listbox1.items.count do
WriteLn(F, + listbox1.items[x] + '<br>');
WriteLn(F, '</body>');
WriteLn(F, '<html>');
CloseFile(F);
end;
met de For lus ga je door de items heen welke bij wegschrijft.
Succes
Bookmarks