Ach..
Ist klar, dasses dann nicht klappt. ^^
Musste es jetzt noch n bisschen umstellen:
Delphi-Quellcode:
AssignFile(Datei, (ExtractFilePath(ParamStr(0))+'
.\splaene\overview.htm'));
Rewrite(Datei);
// Datei neu schreiben
anfang:='
<html>'+sLineBreak+'
<head>'+sLineBreak+'
<title>Stundenplanübersicht '+schule+'
</title>'+sLineBreak+'
</head>'+sLineBreak+'
<body>'+sLineBreak+'
<table width="100%">'+SLineBreak+'
<tr>';
b:=sLineBreak+'
<td align="left"><FONT face=Arial COLOR=#000080 style="font-size: 8pt">Stand: '+str+'
</FONT><font color=#000080 face=Arial size=5></font></td>'+sLineBreak+'
<td align="right"><FONT face=Arial COLOR=#000080 style="font-size: 8pt">'+schule+'
</td></tr></table>'+sLineBreak+'
<table align="center" border="1" width="23%" style="border-collapse: collapse" bordercolorlight="#000000" bordercolordark="#000000">'+sLineBreak+'
<tr>';
WriteLn(Datei, anfang);
WriteLn(Datei, b);
for count := 0
to Pred(LbOverview.Items.Count)
do begin
hcode:='
<td align="center">'+sLineBreak+'
[url="'+LbOverview.Items[count]+'
"]'+LbOverview.Items[count]+'
[/url]</td>';
WriteLn(Datei, hcode);
end;
ende:='
</tr>'+sLineBreak+'
</table>'+sLineBreak+'
<p align="right"><font face=Arial size=1 color=#0000A0>
Geschrieben mit '+programm+'
von [email="svenkan@gmx.de"]Sven Kannenberg[/email]</font></p>'+sLineBreak+'
</body>'+sLineBreak+'
</html>';
WriteLn(Datei, ende);
CloseFile(Datei);
// Datei schließen
Ist es möglich, dass anfangs schon die Einträge der Listbox wirklich nach Alphabet/Zahlen geordnet werden und nicht 11 vor 8 oder so steht?
Bei PHP muss man das irgendwie innem Array zusammenfassen und dann sortieren lassen.
Wie funktioniert das in Delphi?