|
Registriert seit: 12. Sep 2003
229 Beiträge
|
Re: HTML und Delphi
5. Nov 2003, 08:27
@ alexander
hab da grad mal ini der hilfe nachgeschaut. hab folgendes zum memo gefunden:
Zitat:
Note: Under Win 9x, there is a limit of 64k of text for this control.
hab mich entschieden die werte direkt in eine datei zu schreiben, ohne memo.
Delphi-Quellcode:
assignfile(htmlfile, ' bsp.html');
rewrite(htmlfile);
writeln(htmlfile, ' <html>');
writeln(htmlfile, ' <head>');
writeln(htmlfile, ' <title>irgend ne headline</title>');
writeln(htmlfile, ' </head>');
writeln(htmlfile, ' <body>');
writeln(htmlfile, '
');
writeln(htmlfile, ' <center>');
adoquery1.DisableControls;
adoquery1.First;
writeln(htmlfile, ' <table border=1 CELLPADDING=1>');
bgfarbe := ' BGCOLOR="#BBBBBB"';
writeln(htmlfile, ' <tr '+bgfarbe+' ><td width=10></td><td width=120>Verein</td><td width=50 ALIGN=center>Spiele</td><td width=50 ALIGN=center>TorP</td><td width=50 ALIGN=center>TorM</td><td width=50 ALIGN=center>TorDiff</td><td width=50 ALIGN=center>Punkte</td></tr>');
while not adoquery1.Eof do begin {dynamische groesse, kommt auf die anzahl der datensaetze an}
i:=i+1;
if i mod 2 = 0 then bgfarbe := ' BGCOLOR="#CCCCCC"' {zeilenhintergrund unterschiedlich}
else bgfarbe := ' BGCOLOR="#CCCCDD"';
write(htmlfile, ' <tr '+bgfarbe+' ><td ALIGN=center>'+inttostr(i)+ ' </td>');
write(htmlfile, ' <td>'+adoquery1.FieldByName(' Name').AsString+ ' </td>');
write(htmlfile, ' <td ALIGN=center>'+inttostr(adoquery1.FieldByName(' Spiele').asinteger)+ ' </td>');
write(htmlfile, ' <td ALIGN=center>'+inttostr(adoquery1.FieldByName(' TorP').AsInteger)+ ' </td>');
write(htmlfile, ' <td ALIGN=center>'+inttostr(adoquery1.FieldByName(' TorM').AsInteger)+ ' </td>');
write(htmlfile, ' <td ALIGN=center>'+inttostr(adoquery1.FieldByName(' TorDiff').AsInteger)+ ' </td>');
write(htmlfile, ' <td ALIGN=center>'+inttostr(adoquery1.FieldByName(' Punkte').AsInteger)+' </td>');
writeln(htmlfile, ' </tr>');
adoquery1.Next;
end; {end-while}
writeln(htmlfile, ' </table>');
adoquery1.EnableControls;
writeln(htmlfile, ' </center>');
writeln(htmlfile, ' </p>');
writeln(htmlfile, ' </body>');
writeln(htmlfile, ' </head>');
closefile(htmlfile);
frage: sieht jemand von euch auf den ersten blick ob man am code etwas verbessern kann ?
|
|
|
Zitat
|