Delphi-Quellcode:
AssignFile(Datei, (ExtractFilePath(ParamStr(0))+'
.\splaene\index.htm'));
Rewrite(Datei);
// Datei neu schreiben
anfang:='
<html>'+sLineBreak+'
<head>'+sLineBreak+'
<style>'+sLineBreak+'
'+sLineBreak+'
</style>'+sLineBreak+'
<title>Stundenplanübersicht '+schule+'
</title>'+sLineBreak+'
</head>'+sLineBreak+'
<body>'+sLineBreak+'
<table width="100%">'+SLineBreak+'
<tr>';
b:='
<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><h1 align="center"><span style="font-size: 22pt">Stundenplan - </span>[i]<font color="#FF0000"><span style="font-size: 22pt">'+schule+'
</span></font>[/i]</h1>';
WriteLn(Datei, anfang);
WriteLn(Datei, b);
WriteLn(Datei, REInfo.Lines);
e:='
<table border="1" width="99%" style="border-collapse: collapse" bordercolorlight="#000000" bordercolordark="#000000">'+sLineBreak+'
<tr>'+sLineBreak+'
<td>'+sLineBreak+'
<table align="center" border="1" width="'+FloatToStr(weite)+'
%" style="border-collapse: collapse" bordercolorlight="#000000" bordercolordark="#000000">'+sLineBreak+'
<tr>';
WriteLn(Datei, e);
for count := 1
to Pred(LbOverview.Items.Count)
do begin
hcode:='
<td align="center" width="'+FloatToStr(width2)+'
%">[url="'+LbOverview.Items[count]+'
"]'+LbOverview.Items[count]+'
[/url]</td>';
WriteLn(Datei, hcode);
if count
mod klassen2 = 0
then begin
trennung:='
</tr>'+sLineBreak+'
<tr>';
WriteLn(Datei, trennung);
end;
end;
ende:='
</tr>'+sLineBreak+'
</table>'+sLineBreak+'
</td>'+sLineBreak+'
</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
Deswegen xD
Wie bekomm ich das denn nu hin, dass mir hier nicht plötzlich das ganze im Code alles untereinander eingefügt wird? oO
Das sieht mir nämlich ziemlich bekloppt aus^^
PS: Es sind auch gar keine Formatierungen vorhanden..brauchte nur ein Textfeld zur Texteingabe.
