Erro ao escrever em arqquivo .txt

04/11/2009

1

Boa tarde pessoal, estou com um problema para gravar em um arquivo .txt, eu aponto o caminho mais não o meu sistema não esta encontrando o mesmo.       if FileExists('C:\wamp\www\nfe\LogRelNfe.txt') then
  begin
    Log := TStringList.Create;     Log.LoadFromFile('C:\wamp\www\nfe\LogRelNfe.txt');
    Log.Add( 'Log RelNF-e: ' + DateTimetoStr(Now) + ' ' + Mensagem);
    Log.SavetoFile('C:\wamp\www\nfe\LogRelNfe.txt');
    Log.LoadFromFile('C:\wamp\www\nfe\LogRelNfe.txt');
  end
  else
    exit; 
Responder

Posts

04/11/2009

Pjrm1470

Fiz um teste aqui e não encontrei nenhum erro ou anomalia.

procedure TForm1.Button4Click(Sender: TObject);
var
  Log: TStringList;
Const
  T: String = 'C:\log.txt';
begin
  Log := TStringList.Create;
  Log.LoadFromFile(T);
  Log.Add('Teste');
  Log.SaveToFile(T);
  Log.LoadFromFile(T); //Não é necessário pois o arquivo já está carregado.
  Log.Free; //Lembre-se de libera da memoria.
end;

Se da alguma mensagem de erro, favor colocar aqui a mensagem. Pelo erro fica facil de identificar e solucionar.

Outro ponto é saber se tem algum programa ou algum procedimento que remove o arquivo temporariamente.

Att,
Plínio.
Responder
Bom dia,

Eu realizei uma ateração aqui, no meu codugo e passei uma variavel igual você vez ai, e deu certo.Estranho que passando o valor direto não estava funcionando.
Responder