Buscar por:

Gerando um arquivo html

Código

AssignFile(Arq, 'nomearq.html'); 

Rewrite(Arq); 

Writeln(Arq, '<html>'); 

Writeln(Arq, '<head>'); 

Writeln(Arq, '<title>SAAE S&atilde;o Leopoldo - RS</title>'); 

Writeln(Arq, '</head>'); 

Writeln(Arq, '<body bgcolor="#ffffff" text="#0000A0">'); 

Writeln(Arq, '<div align="center">'); 

Writeln(Arq, '<table border=0 width="100%">'); 

Writeln(Arq, '<tr><td colspan="4" align="center" bgcolor="#0080FF">'); 

Writeln(Arq, '<font size=3 face="verdana" color="#ffffff">'); 

Writeln(Arq, '<b>Lancamento de Conv&ecirc;nio</b><br></font></td></tr>'); 

Writeln(Arq, '<tr><td colspan="4" align="center">'); 

Writeln(Arq, '</font></td></tr></table></div></body></html>'); 

CloseFile(Arq);