Buscar un archivo

[[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.