Gravar banco arquivo texto

12/12/2003

1

Boa tarde,
tenho uma query com o campo A,B
Como faço para gravar estes campos em arquivo texto separados por um (;) ponto e virgula
exemplo

A B
Maria ; 20
Joao ; 10


Responder

Posts

12/12/2003

Rodrigo Costa

var arquivo:textfile;
...

rewrite(arquivo,´C:\arquivo.txt´); //Cria o arquivo;

query.first;
while not query.eof do
begin
append(arquivo);
writeln(arquivo,query.fieldbyname(´A´).asstring+´;´+query.fieldbyname(´A´).asstring);
query.next;
end;


Responder

12/12/2003

Omegatrue

Obrigado Rodrigo


Responder

12/12/2003

Rodrigo Costa

Disponha !

obs: esqueci de dizer que vc deve fechar o arquivo após acabar de escrever nele para evitar erro:

{Fecha o arquivo}
closefile(arquivo);



Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira