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


Jc_analista

Jc_analista

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]


Responder

19/08/2004

Paulo_amorim

Olá

Ou ainda, Reset(File);

Até+


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar