Fórum Ajuda de como exportar uma tabela para htm #335772
06/01/2007
0
baseado num código daki da hp comecei este projeto más dá vário problemas..poderiam dar uma analizada no código ?
vlw..t+
var
i, j, w: integer;
linha: string;
htmlfile: TextFile;
const
wrap=#13+10; {estamos declarando esta constante com o valor da tecla enter ...}
begin
BD_CADPC.First;
AssignFile(HtmlFile,´C:\lista_pc.html´);
Rewrite(HtmlFile);
writeln(htmlfile, ´<html><head>´ + wrap +
´<title>Lista de jogos para pc</title></head>´ + wrap +
´<body bgcolor="426F42"text="CCCCCC" link="ffff33" vlink="ffffcc" alink="ffff00">´+ wrap +
´<center><h2>Lista de jogos para pc</h2></center>´ + wrap +
´</body>´+ wrap +
´</html>´+ wrap);
while not BD_CADPC.Eof do
begin
writeln(htmlfile, ´<br><br>´+ wrap +
´<center>´+ wrap +
´<table>´+ wrap +
´<table border="2" bordercolor="#CCCCCC" width="400" height"400">´+ wrap +
´<tr>´+ wrap +
´<td>´+ wrap +
´<h6>´+ (BD_CADPCGS_PC_NOME.value)+´</h6>´+ wrap +
´</tr>´+ wrap +
´</table>´+ wrap +
´</center>´+ wrap);
BD_CADPC.Next;
writeln(htmlfile, ´<font face="Tahoma,verdana,arial">´+ wrap +
´<center><h7>´+ (´Gigatel Inforgames´)+´</h7></center>´ + wrap +
´<center><h7>´+ (´MSN: xxxx@locahost´)+´</h7></center>´ + wrap );
writeln(htmlfile, linha);
writeln(htmlfile, ´</tr>´);
next;
writeln (htmlfile, ´</body></html>´);
CloseFile(htmlfile);
BD_CADPC.Next;
end;
vlw..t+
Gigatel
Curtir tópico
+ 0
Responder
Posts
06/01/2007
Aroldo Zanela
Colega,
Você deve usar QuotedStr para inserir conteúdo entre aspas. (existem outras formas, mas esta é a mais legível).
Você deve usar QuotedStr para inserir conteúdo entre aspas. (existem outras formas, mas esta é a mais legível).
Responder
Gostei + 0
07/01/2007
Gigatel
[quote:2c112b8d1c=´Aroldo Zanela´]Colega,
Você deve usar QuotedStr para inserir conteúdo entre aspas. (existem outras formas, mas esta é a mais legível).[/quote:2c112b8d1c]
más as aspas esntão dentro deste comando
até escreve a primeira linha más dá erro não procegue com o resto da tabela..
Você deve usar QuotedStr para inserir conteúdo entre aspas. (existem outras formas, mas esta é a mais legível).[/quote:2c112b8d1c]
más as aspas esntão dentro deste comando
writeln(htmlfile,
até escreve a primeira linha más dá erro não procegue com o resto da tabela..
Responder
Gostei + 0
07/01/2007
Aroldo Zanela
Colega,
Realmente.
Acertei o código abaixo e está funcionando. Criei um CDS aqui para substituir seu Dataset:
Realmente.
Acertei o código abaixo e está funcionando. Criei um CDS aqui para substituir seu Dataset:
const
wrap=#13+10;
var i, j, w: integer;
linha: string;
htmlfile: TextFile;
begin
cdsPC.First;
AssignFile(HtmlFile,´C:\lista_pc.html´);
Rewrite(HtmlFile);
writeln(htmlfile, ´<html><head>´ + wrap +
´<title>Lista de jogos para pc</title></head>´ + wrap +
´<body bgcolor="426F42"text="CCCCCC" link="ffff33" vlink="ffffcc" alink="ffff00">´+ wrap +
´<center><h2>Lista de jogos para pc</h2></center>´ + wrap +
´</body>´+ wrap +
´</html>´+ wrap);
while not cdsPC.Eof do
begin
writeln(htmlfile, ´<br><br>´+ wrap +
´<center>´+ wrap +
´<table>´+ wrap +
´<table border="2" bordercolor="#CCCCCC" width="400" height"400">´+ wrap +
´<tr>´+ wrap +
´<td>´+ wrap +
´<h6>´+ (cdsPCGS_PC_NOME.value)+´</h6>´+ wrap +
´</tr>´+ wrap +
´</table>´+ wrap +
´</center>´+ wrap);
cdsPC.Next;
end;
writeln(htmlfile, ´<font face="Tahoma,verdana,arial">´+ wrap +
´<center><h7>´+ (´Gigatel Inforgames´)+´</h7></center>´ + wrap +
´<center><h7>´+ (´MSN: xxxx@locahost´)+´</h7></center>´ + wrap );
writeln(htmlfile, linha);
writeln(htmlfile, ´</tr>´);
writeln (htmlfile, ´</body></html>´);
CloseFile(htmlfile);
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)