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

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

// Saludos

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!

Hola amigo Carlos

No te sirve la función FileExists() :confused:

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......:D:D:D:D

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

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

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

// Saludos

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

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

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

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

No se que quieras hacer amigo Carlos pero me imagino que es algo como una agenda, porque no usas una tabla donde tenga la fecha y un memo y puedes mostrar un tipo calendario con un memo mostrando el contenido de ese dia.

Salud OS.

Hola
Me leíste el pensamiento amigo, ya lo intente, hacerlo empezando un programa, con una base de datos, un memo, etc, no tiene reto, para mi el reto esta en hacerlo con este calendario que hizo Lepe, este genera los meses con un solo memo, usa un Frame, ese es mi problema el Frame, que no lo logro dominar, ya me conoces, asta que no lo logre no lo dejo.:D
Una vez que tenga esto, me gustaria colocarlo aqui para que lo veais y me podais ayudar con mas informacion.
La idea de este calendario de Lepe esta muy bien, mi idea era ayudar a algunos que quieren hacer un sistema para un Hotel, reservaciones, habitaciones ocupadas etc, es una practica interesante.
Con suerte algun dia puedo decir que soy un casi, programador.:D
Saludos

Algo así?

http://www.clubdelphi.com/foros/show...96&postcount=3

Salud OS.

Recuerdo vágamente el calendario de Lepe, que se generaba en ejecución segun los días del mes.
Si tienes problemas con los adjuntos, puedes subirlo al directorio temporal del FTP, cuando el problema de los adjuntos quede solucionado o cuando acabe el hilo lo movemos/borramos (lo que convenga) y listo.

Hola
Vamos amigo, no bromees.:D
Para hacer algo asi necesito muchos, pero muchos años mas.
A proposito, cuando lo liberas.:)
Saludos

Hola
Gracias Neftali
Lo voy a subir le calendario, como lo tengo, cuando se normalice la situacion lo borras, por favor.
Saludos

Hola
Aqui esta:
http://www.terawiki.clubdelphi.com/a...Pruebas%29.zip
Probadlo y ya me direis algo.
Como digo, la idea es que se vea la informacion de los archivos al crear el mes, de momento.
Saludos

Siento decirte amigo Carlos que no lo puedo liberar porque es un desarrollo que me ha pagado un cliente y forma parte de su portafolio de servicios.

Salud OS.

Hola
Ya se amigo, sabes que era un broma, se que vosotros os dedicais a esto y no es tan facil liberar los programas y menos si os han pagado el proyecto.
Saludos

Ya he visto lo que has hecho amigo Carlos, está muy bien, pero me sigue dando vueltas el hecho de que quieras usar archivos de texto para implementar lo escrito en cada dia.

Yo usaría una tabla con esta estructura

Fecha {Date}
Comentarios {Memo}
Status { Integer, Para realizar borrados lógicos no físicos }

No se pero a mi no me gusta ser tan drástico al borrar algo, mejor le asigno un estado para saber si está inactivo, activo, borrado, etc... Uno nunca sabe cuando salta la liebre :D

En fin solo es mi punto de Vista (MS) :D:D:D.

Salud OS.

Hola
En principio es lo mismo que el programa de Lepe, solo un poco mas extendido.:)
Intente hacerlo con una base de datos, cambiando el memo por un dbmemo, pero, no me lee de la tabla, pienso que debe ser por tener un solo memo creado y repetido tantas veces como dias.
Me gustaria hacerlo con una base de datos, no se como, no me sale, me das un empujón.:D
Saludos

Veo que muestras la información cuando das click en el día, puedes hacer esto en el mismo evento.

Código Delphi [-]
  TuQuery.SQL.Text := 'select campo_memo from tabla where fecha = :fecha';
  TuQuery.ParamByName('fecha').AsDate := Fecha;
  TuQuery.Open;
  if TuQuery.RecordCount > 0 then begin
    mmo.Lines.Add(TuQuery.fields[0].asString);
  end;

Salud OS.

Hola
No hay manera, por mas que intento, no me recoge la informacion.
Sigo intentando.
Saludos

Hola
Puedes intentar hacer una base de datos, ojala access, y veras a lo que me refiero, no da errores, pero no carga nada, le he dado vueltas al codigo y nada.
Saludos

Hola
Me acaba de pasar algo curioso, usando este codigo:

Código Delphi [-]
  ShortDateFormat := 'mm/dd/yyyy';
  ADOQuery1.SQL.Text := 'Select Comentarios From Dias WHERE Fecha = '+DateToStr(Fecha);
   ADOQuery1.Active := True;
   ShortDateFormat := 'dd/mm/yyyy';
   mmo1.Lines.Text:= ADOQuery1.Fields[0].Text;

Me devuelve la palabra (MEMO) en cualquier dia que presione.
Que sera?, nunca me ha pasado algo asi.:D
Saludos

Hola amigo Carlos.

Hice las pruebas con una tabla paradox, no tengo access (sorry), aqui te pongo como quedaron las funciones

Código Delphi [-]
procedure TFrCelda.pnl1Click(Sender: TObject);
begin
  Selected := not Selected;
  Form1.Query1.Close;
  Form1.Query1.ParamByName('fecha').AsDate := Fecha;
  Form1.Query1.Open;
  if Form1.Query1.RecordCount > 0 then begin
     mmo1.Lines.Add(Form1.Query1.FieldByName('CampoMemo').Value);
  end;
end;

procedure TFrCelda.Panel1Click(Sender: TObject);
begin
  with Form1.Table1 do begin
     Open;
     Append;
     Form1.Table1Fecha.Value := Fecha;
     Form1.Table1CampoMemo.Value := Mmo1.Text;
     Form1.Table1Status.Value := 0;
     Post;
     Close;
  end;
  mmo1.Lines.Clear;
end;

La sentencia SQL del query es esta

Código SQL [-]
 
select * from agenda
where fecha = :fecha

Funciona sin problema.

Salud OS

Edito

Cuando agregas comentario debes de validar que no exista esa fecha asignada, de otra forma tendrás latosas inconsistencias :D

Hola
Lo voy a revisar, te comento, gracias.
Saludos

Hola
Bueno, aqui los resultados:
Ya coloque la base de datos, con la tabla Dias y los campos, Fecha, Comentarios, Estado.
Coloque el codigo que me diste, en Access no es igual la sintaxis, pero esencialmente similar, asi:
Recoger informacion:

Código Delphi [-]
procedure TFrCelda.pnl1Click(Sender: TObject);
begin
  Selected := not Selected;
  Form1.ADOQuery1.Close;
  Form1.ADOQuery1.Parameters.ParamByName('fecha').Value := Fecha;
  Form1.ADOQuery1.Open;
  if Form1.ADOQuery1.RecordCount  > 0 then
  begin
  mmo1.Lines.Add(Form1.ADOQuery1.Fields[1].AsString);
  end;
end;

Y Grabar la informacion:

Código Delphi [-]
procedure TFrCelda.Panel1Click(Sender: TObject);
begin
   with Form1.ADOTable1 do begin
     Open;
     Append;
     Form1.ADOTable1Fecha.Value := Fecha;
     Form1.ADOTable1Comentarios.Value := mmo1.Text;
     Form1.ADOTable1Estado.Value := '0';
     Post;
     Close;
  end;
  mmo1.Lines.Clear;
end;

Para grabar la informacion no hay problema lo hace perfectamente.
Para recoger la informacion, solo recoge el primer dato de la tabla y no respeta la fecha.
Fecha...........Comentarios.........Estado
05/07/2007......nada.................0
06/07/2007......otro..................0
Siempre muestra el primer dato, no importa en que dia se presione.
A que se debera esto, no lo entiendo.?
Saludos

Ya veo que habéis seguido por el camino de la Base de Datos.
De todas formas, ya que el ejemplo estaba arriba, he subido un par de cambios (versión 2)
* Que se carguen todos los ficheros al crear o cambiar de mes
* Cambios para que los ficheros se creen en el directorio de applicación (carpeta) y no en C:\Dias (que era un poco molesto).

Seguramente si váis avanzando con la verión de BD también te pueden servir.

Un saludo.

Hola
Muy Util la modificacion ademas de practica, me alegro que le ayas metido mano, espero que Lepe no se enoje con nosotros por tocar su juguete, mas bien ojala le gusten los cambios.
La parte de la base de datos es interesante, por que da la oportunidad de incorporar el calendario a un proyecto, el problema es que todavia no camina, nos das un empujon?.
Saludos

Ta raro Carlos, yo no tengo problema, si me muestra los datos correctamente

http://img54.imageshack.us/img54/2491/calendarioym1.png

Salud OS.

Edito: Lo que agregue en el evento donde muestras el comentario, es borrar el memo antes de mostrarlo, porque se duplica

Código Delphi [-]
mmo1.lines.clear;

Hola
Pues nada amigo, esto a mi no me camina y creo que no tiene que ver con access, veo que usas los componentes BDE, creo que la diferencia esta ahi, yo estoy usando ADO.
Podrias hacer una prueba con ADO?, a ver que pasa, no se si se pueden usar con paradox.
Saludos

Hola amigo, puedes colocar el programa en el ftp del club y tambien la base para hacer pruebas con lo mismo.:confused:

Salud OS

Hola
Aqui esta:
http://www.terawiki.clubdelphi.com/a...29%28BD%29.zip
A ver que podemos hacer, no se por que se me esta escapando de las manos.
Saludos

Se me hace que ya se donde esta el problema amigo Carlos, tu campo de fecha está asignado como TIMESTAMP solo el primero no tiene hora, por eso es que siempre toma el primero.

Cambia el campo por solo fecha y no FECHA-HORA

Salud OS.

Edito

Aquí como está la base.

Hola Amigo
En access no hay Fecha existe Fecha/hora y se le pone una entrada dependiendo de lo que se necesite en mi caso fecha corta osea 01/08/2007 asi se guardara en la tabla.
No crees que sea otra cosa?.
Vamos bájate OpenOffice y lo revisas.:D
Saludos

Si entiendo, por eso no me gusta access, luego luego las limitaciones :D:D:D, ya en serio, me imagno que necesitas pasar la hora tambien , porque no la pasas como 00:00:00, y buscas la llave como fecha + '00:00:00'.

La otra, porque no mejor usas un campo string de 10 posiciones y pasas la fecha :rolleyes:,

Bueno, solo es mi humilde (palabra muy de moda en el sector NOTICIAS :D:D) punto de vista.....

Salud OS

Edito. si ves la imagen que puse, asi me está guardando los registros, (fecha y hora)

Hola
Ya se me había ocurrido lo del string, cuando hay desesperacion se recurre a eso:D , pero da un error en Fecha.
Es la primera vez que me pasa algo asi, siempre pongo la fecha sin hora y sin problemas y en access, creo que el problema esta a la hora de la captura en la variable Fecha, esta es de tipo DateTime y no la puedo cambiar a solo Date.
Estos son los misterios sin resolver, buen programa por cierto.:D
Amigo, estamos mal, no hay manera, necesitamos un exorcista, Lepe?.:rolleyes:
Saludos
Edite una Palabra: Desorcisador, ya que el que exorcisa o un esorcisador buen exorcista sera.:D