Erro ao escrever em arqquivo .txt
04/11/2009
0
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;
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;
Douglas Fernandes
Curtir tópico
+ 0
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.
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
05/11/2009
Douglas Fernandes
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.
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
Clique aqui para fazer login e interagir na Comunidade :)