Duvida com arquivo texto
19/08/2004
0
Tenho um arquivo texto no delphi só que toda vez que eu escrevo uma nova linha no arquivo ele apaga as restantes. Eu uso o seguinte código:
AssignFile(arquivo,SERVIDOR+´\´+arq);
rewrite(arquivo);
linha:=datetostr(now)+´ ´+timetostr(now)+´ - ´+´Duração: ´+dur+´ - ´+´Fone: ´+fone;
writeln(arquivo,linha);
closefile(arquivo);
AssignFile(arquivo,SERVIDOR+´\´+arq);
rewrite(arquivo);
linha:=datetostr(now)+´ ´+timetostr(now)+´ - ´+´Duração: ´+dur+´ - ´+´Fone: ´+fone;
writeln(arquivo,linha);
closefile(arquivo);
Jc_analista
Curtir tópico
+ 0
Responder
Posts
19/08/2004
Macsousa
o ReWrite caso exista o arquivo apaga o contudo do arquivo e comeca a escrever apartir da primeira linha
para escrever no final do arquivo use o comando Append
AssignFile(arquivo,SERVIDOR+´\´+arq);
[b:2fbb44f0cf]append[/b:2fbb44f0cf](arquivo);
linha:=datetostr(now)+´ ´+timetostr(now)+´ - ´+´Duração: ´+dur+´ - ´+´Fone: ´+fone;
writeln(arquivo,linha);
closefile(arquivo);
tem um exemplo neste site :
[url]http://www.delphibasics.co.uk/RTL.asp?Name=Append[/url]
para escrever no final do arquivo use o comando Append
AssignFile(arquivo,SERVIDOR+´\´+arq);
[b:2fbb44f0cf]append[/b:2fbb44f0cf](arquivo);
linha:=datetostr(now)+´ ´+timetostr(now)+´ - ´+´Duração: ´+dur+´ - ´+´Fone: ´+fone;
writeln(arquivo,linha);
closefile(arquivo);
tem um exemplo neste site :
[url]http://www.delphibasics.co.uk/RTL.asp?Name=Append[/url]
Responder
Clique aqui para fazer login e interagir na Comunidade :)