Problemas al usuar FilenameEdit

[dec]

Hola,

Empezado por ArdiIIa

Tal vez antes de hacer nada, debería verificar que efectivamente se ha seleccionado algo..

O, directamente:

Código Delphi [-]
if FileExists(FilenameEdit1.FileName) then
  {...}

[[ArdiIIa]]

Empezado por dec

Hola,



O, directamente:

Código Delphi [-]
if FileExists(FilenameEdit1.FileName) then
  {...}

jEJE.... El que un fichero exista.. no quiere decir que el usuario lo haya seleccionado...

[[ArdiIIa]]

Empezado por dec

Hola,
[/delphi]

Venga.... ya queda poco.... estás hoy desbocao.... ánimo....

[dec]

Hola,

ArdiIIa, he recuperado tu anterior mensaje, porque, oyes, puedes llevar razón, además de que yo no he usado nunca el componente en cuestión y quién sabe...

Respecto del problema del compañero... tal vez el error no esté en el componente de marras, sino en otro lugar, ¿no?... quizás deberías correr el programa "paso a paso" en ese punto...

Empezado por ArdiIIa

Venga.... ya queda poco.... estás hoy desbocao.... ánimo....

Cof, cof, cof, cof...

[[ArdiIIa]]

[quote=dec]Hola,

ArdiIIa, he recuperado tu anterior mensaje

[quote]

Oyes... Que es eso de recuperar mensajes borrados sin mi permiso...

Otro pa mi cuenta ??

[Ledian_Fdez]

Mil de grasias amigos. Pues me rendi, ya no uso ese control. Pues me e ido por la via de usar un DirectoryEdit y le e hecho unos arreglos a mi codigo. ahora me queda asi y no da error alguno.

Código Delphi [-]
procedure TSalvaForm.BitBtn2Click(Sender: TObject);
var
 CaminoBD : string;
...
CaminoBD := DirectoryEdit2.Text + '\BDCheques.zip';
  if not(FileExists(CaminoBD)) then
    begin
     Application.MessageBox('No se encuantra el Archivo de restaura, por favor intetelo de nuevo ', 'Cheques', MB_OK or MB_ICONERROR);
     Abort;
    end
...

end;

El unico inconveniente es que los usuarios no ven el archivo de restaura, solo que seleccionan el posible camino. Que de la otra forma podian localizar el archivo ademas de que se lo filtraba por el nombre y extencion del archivo. De veras que es una lastima que no sepa donde esta el error.
pero de todas formas muchas grasias a todos.

Salu2
Ledian

[[ArdiIIa]]

Veo en este código, que utilizas primeramente utilizas un mensaje para dar el aviso al usuario y luego lanzas un Abort (Raises a silent exception.)

No sería mejor un simple exit; y salir sin mas.

[Ledian_Fdez]

Tienes razon.
Con el Exit, se sale del procedure actual.

mil gracias. Es válida su aclaracion.

Salu2
Ledian