Open Dialog - PROBLEMÃO

Delphi

08/08/2003

Estou com um problemão, pelo menos consegui descobrir aonde, mas não consegui resolvé-lo...
É o seguinte:
Eu tenho um form o uso do OpenDialog...
e Em outro form eu tenho um Rotina para gerr um arquivo de Log, onde eu uso:
AssignFile(arq_log,sNomeArquivo);
Append (arq_log);
Writeln (arq_log, ´[´ + sDatahora + sUsuario + ´] ´ + sMensagem);
Flush (arq_log);
CloseFile (arq_log);
Cada vez que eu executo o OpenDialog da pau na liha Append(arq_log), eu acredito que o delphi esta se confundindo n hora de abrir o arquivo pelo OpenDialog e na hora de abrir o arquivo de log pelo Append (arq_log), será que vc pode me ajudar...
eu ja tentei fechar o arquivo, ja tentei destruir o componente...
nao da certo...


Marcela

Marcela

Curtidas 0

Respostas

Vmotta

Vmotta

08/08/2003

olha, acabei de testar seu código, e funcionou corretamente, olha oq eu fiz:

var
  arq_log: TextFile;
  sNomeArquivo : string;
begin
  if OpenDialog1.Execute then
  begin
    sNomeArquivo := OpenDialog1.FileName ;
    AssignFile(arq_log,sNomeArquivo);
    Append (arq_log);
    Writeln (arq_log, edit1.text);
    Flush (arq_log);
    CloseFile (arq_log);
  end;
end;


vc nao quer colocar seu código aqq, ou enviar por e-mail pra eu dar uma olhada ?

t+
Vitor <vmotta@eep.br>


GOSTEI 0
POSTAR