Fórum Criação de Arquivo Texto (LOG) #178921
01/09/2003
0
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.
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
Curtir tópico
+ 0
Responder
Posts
01/09/2003
Anorex
Tente usar somente writeln....
Responder
Gostei + 0
01/09/2003
Aroldo Zanela
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.
Sugiro avaliar outras abordagens para isso, eis que o uso de arquivo texto não é o mais indicado.
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.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)