Buscar un archivo

[[Caral]]

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

[roman]

Código Delphi [-]
try
  mmo1.Lines.LoadFromFile(Ruta);
except
  ShowMessage('ni hablar, no encuentro tal archivo');
end;

// Saludos

[[Caral]]

Hola
Gracias Roman.
Me sigue mandando el error:

Código Delphi [-]
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';
  try
  mmo1.Lines.LoadFromFile(Ruta);
  except
  ShowMessage('ni hablar, no encuentro tal archivo');
  end;

Saludos

[roman]

Empezado por Caral

Me sigue mandando el error:

Eso ha de ser porque lo ejecutas desde el IDE. Pero viendo las otras respuestas, yo también usaría el FileExists.

// Saludos

[delphi.com.ar]

Código Delphi [-]
  if FileExists(Ruta) then
    mmo1.Lines.LoadFromFile(Ruta);

Ante la evaluación negativa podrías mostrar otro mensaje.

PD:
Dudo que sea válido el código:

Código Delphi [-]
if DateToStr(Fecha) = '' Then

Ya que DateToStr nunca será '', en el caso de que la fecha sea 0 su conversión a string será: '30/12/1899', por lo que te recomiendo preguntar suponiendo que es lo que quieres:

Código Delphi [-]
if Fecha = 0 then...

Saludos!

[[egostar]]

Hola amigo Carlos

No te sirve la función FileExists()

Código Delphi [-]
  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';
  if FileExists(Ruta) then
     memo1.Lines.LoadFromFile(Ruta);

Salud OS

Edito: Orale, no sean tán rápidos......

Por otro lado, no será que quieres que la extensión sea TXT en lugar de TEXT.

[[Caral]]

Hola
Sois unos verdaderos Maestros quedo asi:

Código Delphi [-]
procedure TFrCelda.pnl1Click(Sender: TObject);
var
 Ruta: String;
begin
  Selected := not Selected;
  Ruta:= 'C:\'+FormatDateTime('dd-mm-yyyy',Fecha )+'.text';
  if FileExists(Ruta) then
  begin
  mmo1.Lines.LoadFromFile(Ruta);
  end
  else
  ShowMessage('día seleccionado no contiene nada');
end;

Muchas gracias por la ayuda, Maestros y amigos.
Saludos

[[Caral]]

Hola
A proposito de este asunto.
Estoy modificando un programa que hizo Lepe, de un calendario dinamico, muy interesante.
El asunto era poder escribir en el y que se grabara la informacion en un archivo.
Ahora, cuando se preiona el dia, sale el archivo, lo que se me ocurria era que al elecutar el Programa saliera de una vez el archivo, lo que pasa es que crea unos componentes y hace otras cosas que no entiendo, cuando lo termine lo trato de subir a ver si os ocurre algo.
Saludos

[Neftali [Germán.Estévez]]

Empezado por Caral

Ahora, cuando se preiona el dia, sale el archivo, lo que se me ocurria era que al elecutar el Programa saliera de una vez el archivo,...

Esto no he acabado de enterderlo...
Si te refieres a que al entrar no haya que pulsar sobre el día actual para que haga algo, sino que lo haga automáticamente, se podría hacer usando el Now y llamando al evento/procedimiento de presionar el día sobre el actual.

Pero lo dicho, no se si estoy desvariando...

[[Caral]]

Hola
Gracias Neftali, el problema es que se genera un mes completo, parecido al datetimepicker, con campos para escribir, cada campo es un dia, cada dia un archivo, cada archivo se nombra con el nombre del dia asi: (02/07/2007.text).
Cuando se da un click al dia, este trae su correspondiente archivo, lo que queria hacer es que cuando se creara el mes se trajera la informacion de los dias de paso, pero no lo he conseguido.
Se que es muy dificil de entender sin ver el codigo, solamente estoy esperando que se solucione el problema de los adjuntos para colocarlo aqui, asi lo entendereis mejor.
Saludos