Trabalhando com arquivo

Delphi

30/10/2003

Eu tenho o seguinte código:
constructor TLog.Inicializar(sNomeArqLog : string);
begin
  sArquivoLog := sNomeArqLog;
  sRetornarLoginRede(sUsuario);
  AssignFile(ArqLog, sArquivoLog);
end;

procedure TLog.GeraLog(sMensagem : string);
begin
 sDataHora := FormatDateTime(´dd/mm/yyyy hh:nn:ss´, Now);
 try
   Append (ArqLog);
   Writeln(ArqLog, ´[´, sDataHora + ´ ´ + sLogin + ´]´ + sMensagem);
   CloseFile(ArqLog);
 except
   //
 end;
end;

Esse código gera log de eventos do meu aplicativo.
O problema está no meu OpenDialog que está num outro formulário. Cada vez que eu uso o OpenDialog para abrir um determinado arquivo, eu não consigo gerar mais nem um log, ele dá pau na linha onde diz:

Append (ArqLog);


O que posso fazer para solucionar este erro?


Marcela

Marcela

Curtidas 0

Respostas

Beppe

Beppe

30/10/2003

Para usar um arquivo você precisa abrí-lo, e uma vez feito isso, você não o abre mais. O Append deve ser chamado só uma vez, podia ser no construtor.

Ataliba


GOSTEI 0
POSTAR