Esportar para TXT

Delphi

14/08/2003

Ola caros colegas internautas.
Gostaria de por exemplo quando ele exibir as informaçoes contidas em uma Table ele de a opção para transportar par TXT .
Obrigado


Michel_prog

Michel_prog

Curtidas 0

Respostas

Joilson_gouveia

Joilson_gouveia

14/08/2003

Adapte a função abaixo:

procedure TForm1.Button1Click(Sender: TObject);
var
i, j, w: integer;
linha: string;
htmlfile: TextFile;
const
wrap=#13+10; {estamos declarando esta constante com o valor da tecla enter ...}
begin
AssignFile(HtmlFile, ´c:\htmlfile.html´);
Rewrite(HtmlFile);
writeln(htmlfile, ´<html><head>´ + wrap + {estamos gerando o inicio do arquivo html}
´<title>´+ Table1.name + ´</title>´ + wrap +
´</head>´ + wrap + ´<body bgcolor=´FFFBCB´>´ +
wrap + ´<table border =1>´ + wrap); {Nesse ponto iremos gerar a tabela html}
with table1 do
begin
for w:=0 to fieldCount - 1 do
writeln(htmlfile, ´<td>´ + (Fields[w].FieldName) + ´</td>´);
{Na linha de cima iremos gerar uma coluna em html para cada campo da table 1 com os seus nomes}
table1.first;
for i:=0 to recordcount-1 do
begin
linha:=´<tr>´+wrap;
for j:=0 to fieldcount-1 do
begin
linha:= linha + ´<td>´ + Fields[j].AsString + ´</td>´;
{Este código pega o valor dos campos de cada linha da table e joga na tabela de html}
end;
writeln(htmlfile, linha);
writeln(htmlfile, ´</tr>´);
next;
end;
end;
writeln(htmlfile, ´</body></html>´); {Finaliza o arquivo html}
CloseFile(htmlfile);
end;


GOSTEI 0
Michel_prog

Michel_prog

14/08/2003

Obrigado!!!!!!!!!!!!!!


GOSTEI 0
POSTAR