Duvida com arquivo texto

19/08/2004

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);


Jc_analista

Respostas

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]


Responder Citar

19/08/2004

Paulo_amorim

Olá

Ou ainda, Reset(File);

Até+


Responder Citar