Fórum Exportar para texto #215421

Eu faria da seguinte forma:
Faria a seleção dos dados a partir de uma Query [QuerySelect]
dae jogaria dentro de um memo [mais simplório impossivel] e salvaria:
var
iCont: integer;
begin
iCont:=1;
QuerySelect.Open;
while not QuerySelect.eof do
begin
memo1.lines.add(´Reg ´+inttostr(iCont)+QuerySelect.fieldbyname(´valor1´).asstring+QuerySelect.fieldbyname(´valor2´).asstring); //ae vai ate qntos campos forem
QuerySelect.Next;
Inc(iCont)
end;
memo1.lines.savetofile(´c:\windows\desktop\registros.txt´);
end;
Claro, não é necessário o Reg + iCont, é só pra situar o registro..

Olá

http://delphiforum.icft.com.br/forum/viewtopic.php?t=36457

fora a extensao *.xls, isso se aplica à texto tambem...
eh a mesma coisa!


Espero que ajude
Até+