Gravando trextos em arquivos

[christianhess 0]

Olha só, eu tenhu um Timer, e a cada 1 minutos ele adiciona um texto direfete em um arquivocomo gravar no arquivo teste.txt o q ele adicionou e deixar no arquivo o q tinha, tipocolokar o o texto tal so na ultima linha desse arquivo.. só adiciona ele lá embaixo dos outros?? como fazer???MSN tourobandido@hotmail.com

[Dopi 0]

Use o procedimento EscreveTXT abaixo...

 

 

procedure TForm1.EscreveTXT(ArqTXT, AString: String);Var Arq : TextFile;begin  AssignFile( Arq, ArqTXT);  if not FileExists(ArqTXT) then     Rewrite( Arq )  else     Append( Arq );  Writeln( Arq, AString );  Flush( Arq );  CloseFile( Arq );end;

como usa-lo:

procedure TForm1.Button1Click(Sender: TObject);begin  EscreveTXT('C:\TEMP\TESTE.TXT',DateTimeToStr(now));end;

[botaffonso 0]

particularmente eu prefiro o uso das TStringList, devido o comando usado acima na dica do amigo REWRITE fazer com que o documento seja apagado, ou seja, a cada vez q ele for aberto ele estará em branco.crie um arquivo texto e depois manipule-o como TStringList no delphi:crie uma variável do tipo TStringList, exemplo:T, L: TStringList;beginT:= TStringList.Create;L:= TStringList.Create;if not FileExists(NomeArquivo) then begin T.SaveToFile(NomeArquivo); end else begin L.LoadFromFile(NomeArquivo); L.AddStrings(T.Create); L.SaveToFile(NomeArquivo);//salva cópia do backup do log end;

[Dopi 0]

particularmente eu prefiro o uso das TStringList, devido o comando usado acima na dica do amigo REWRITE fazer com que o documento seja apagado, ou seja, a cada vez q ele for aberto ele estará em branco.

O problema dessa abordagem é que nesse caso sempre todo o arquivo será regravado... Se o arquivo for muito grande (alguns MB) fica lento ler todo arquivo para um TStringList, inserir mais uma linha no final e depois regrava-lo...Para sanar o problema do rewrite usei o FileExists, se ele ja existir uso o Append, que abre o arquivo e já posiciona o ponteiro no EOF...

[botaffonso 0]

verdade amigo, visto que depois q eu postei, eu observei o append.....o procediento que você passou está correto..