Gravar banco arquivo texto
12/12/2003
0
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
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
Omegatrue
Curtir tópico
+ 0
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;
...
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
Rodrigo Costa
Disponha !
obs: esqueci de dizer que vc deve fechar o arquivo após acabar de escrever nele para evitar erro:
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
Clique aqui para fazer login e interagir na Comunidade :)