Array
(
)

Duvida com arquivo texto

Jc_analista
   - 19 ago 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);


Macsousa
   - 19 ago 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);
append(arquivo);
linha:=datetostr(now)+´ ´+timetostr(now)+´ - ´+´Duração: ´+dur+´ - ´+´Fone: ´+fone;
writeln(arquivo,linha);
closefile(arquivo);

tem um exemplo neste site :

http://www.delphibasics.co.uk/RTL.asp?Name=Append


Paulo_amorim
   - 19 ago 2004

Olá

Ou ainda, Reset(File);

Até+