OpenDialog1 erro ao abrir segunda vez

Delphi

09/11/2007

Bom Dia!
Abro esse OpenDialog dentro dum Form, seleciono o arquivo e ok, mas se eu tentar abrir + 1 vez da erro, soh funciona se eu fechar o programa e entrar novamente.
Vcs sabem como resolver isso.

  OpenDialog1.Filter:=´a (*.txt)|*.TXT´;
  OpenDialog1.Execute;
  g    := OpenDialog1.FileName;
  a    := extractfilename(g);
  xArquivo := a;
  OpenDialog1.Free;


[b:01ce1ac069]Obrigado![/b:01ce1ac069]


Claudio_f

Claudio_f

Curtidas 0

Respostas

Steve_narancic

Steve_narancic

09/11/2007

Remove a linha 

OpenDialog1.Free;



GOSTEI 0
Claudio_f

Claudio_f

09/11/2007

Obrigado!, funcionou.


GOSTEI 0
Steve_narancic

Steve_narancic

09/11/2007

Só pra complementar, o metodo free destrói o objeto liberando-o da memória, então quando vc executava novamente a rotina o sistema não encotrava o objeto opendialog1 e causava um erro de Access violation


GOSTEI 0
POSTAR