Fórum OpenDialog1 erro ao abrir segunda vez #348749
09/11/2007
0
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.
[b:01ce1ac069]Obrigado![/b:01ce1ac069]
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
Curtir tópico
+ 0
Responder
Posts
09/11/2007
Steve_narancic
Remove a linha
OpenDialog1.Free;
Responder
Gostei + 0
09/11/2007
Claudio_f
Obrigado!, funcionou.
Responder
Gostei + 0
09/11/2007
Steve_narancic
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)