Puse entre comentarios el "Hago cosas con el fichero" y me sigue dando problemas, por eso "supongo" que ese no sea el problema.
Y como me esperaba, hice un programa a parte, solo con el execute y funciona....
if sdBuscaFichero.Execute = true then
begin
try
GrabarFichero(sdBuscaFichero.Files[0]);
except
MessageDlg('No se ha podido guardar el fichero con la lista de señales exportadas. Revise el nombre del fichero seleccionado',mtError,[mbOk],0);
end;
end;//if odBuscaFichero.Execute then
Este es el código orginal. Lo sustituyo solo por esto:
GrabarFichero('n:\endesa\sigma_cltlc\quepasa.txt');
y funciona.... este código es con el SaveDialog, pero me pasa lo mismo, en el momento que hago el execute me casca el programa al terminarlo.
Gracias de nuevo.
|