Ver Mensaje Individual
  #1  
Antiguo 30-07-2007
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 27
Caral Va por buen camino
Buscar un archivo

Hola a todos y gracias de antemano por vuestra ayuda.
Tengo este codigo en un boton:
Código Delphi [-]
procedure TFrCelda.pnl1Click(Sender: TObject);
var  Ruta: String;
begin
Selected := not Selected;
if DateToStr(Fecha) = '' Then   begin   
ShowMessage('día seleccionado no contiene nada');
   end   else
Ruta:= 'C:\'+FormatDateTime('dd-mm-yyyy',Fecha )+'.text';
   mmo1.Lines.LoadFromFile(Ruta);
end;

El problema lo tengo cuando no encuentra el archivo, me manda un error.
Lo que quiero en que me mande un mensage y no pase nada.
El archivo esta incluido en (Fecha) y la direccion en (Ruta).
se podra.?
saludos

Edito: No he podido arreglar el codigo, si me haceis el favor os lo agradezco.
Saludos

Última edición por Caral fecha: 30-07-2007 a las 20:56:47.
Responder Con Cita