Weil Deine Schleife nur der internen Variable etwas zuweist und nichts schreibt.
Delphi-Quellcode:
AssignFile(Datei, (ExtractFilePath(ParamStr(0))+'
.\splaene\overview.htm'));
Rewrite(Datei);
// Datei neu schreiben
anfang:='
<table border="1" width="23%" style="border-collapse: collapse" bordercolorlight="#000000" bordercolordark="#000000">'+SLineBreak+'
<tr>';
ende:='
</tr>'+SLineBreak+'
</table>';
WriteLn(Datei, anfang);
WriteLn(Datei, ende);
for count := 0
to Pred(LbOverview.Items.Count)
do begin
hcode:='
<td align="center">'+sLineBreak+'
<p align="center">[url="'+LbOverview.Items[count]+'
"]'+LbOverview.Items[count]+'
[/url]</td>';
WriteLn(Datei, hcode);
end;
CloseFile(Datei);
// Datei schließen
Nicht wirklich schön, aber halt auch nur auf die Schnelle umgestellt.