Array
(
)

Erro ao escrever em arqquivo .txt

Douglas Fernandes
   - 04 nov 2009

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; 

Pjrm1470
   - 04 nov 2009

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.

0
|
0

Douglas Fernandes
   - 05 nov 2009

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.

0
|
0