Duvida com arquivo texto
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
Curtidas 0
Respostas
Macsousa
19/08/2004
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]
GOSTEI 0
Paulo_amorim
19/08/2004
Olá
Ou ainda, Reset(File);
Até+
Ou ainda, Reset(File);
Até+
GOSTEI 0