Criação de Arquivo Texto (LOG)

Delphi

01/09/2003

Olá pessoal,

estou tentando criar um arquivo texto para funcionar como um log.
estou usando o seguinte código:

---------------------------------------------------------------------------

procedure TFormServ.CriaLog(TextLog: String);
var
Log: TextFile;
begin
AssignFile(Log,´Log.txt´);
Rewrite(Log);
Write(Log,´Veículo: ´+Table1.FieldByName(´Veículo´).AsString);
Write(Log,´ Km: ´+KmAtual.Text);
Writeln(Log,´ Data: ´+DateToStr(date));
Writeln(Log,TextLog);
Closefile(Log);
end;

------------------------------------------------------------------------------


A minha intenção é que o arquvio Log.txt grave todos os movimentos ocorridos ao longo do tempo, porém ele só grava o último. Ou melhor, o último movimento é gravado sobre o antigo e o Log.txt fica sempre só com 3 linhas.

Como faço para que eu possa gravar outros movimento nas linha abaixo do que já gravado (escrito) no Log.txt sem substituir o conteudo já existente ??????

Desde já, agradeço a atenção.


Rubensgalvanijr

Rubensgalvanijr

Curtidas 0

Respostas

Anorex

Anorex

01/09/2003

Tente usar somente writeln....


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

01/09/2003

Colega,

Neste caso você deve utilizar Append, para adicionar o texto ao final do seu texto. Vou colocar o exemplo do help para que você entenda e possa adaptar.

var

  f: TextFile;
begin
  if OpenDialog1.Execute then
  begin                    { open a text file }
    AssignFile(f, OpenDialog1.FileName);
    Append(f);
    Writeln(f, ´I am appending some stuff to the end of the file.´); 
    Flush(f);  { ensures that the text was actually written to file }
    { insert code here that would require a Flush before closing the file }
    CloseFile(f);
  end;
end;


Sugiro avaliar outras abordagens para isso, eis que o uso de arquivo texto não é o mais indicado.


GOSTEI 0
POSTAR