HTML und Delphi

**markon**

@ 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 ?

HTML und Delphi

Re: HTML und Delphi

Forumregeln