Buscar un archivo

[[Caral]]

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

[[egostar]]

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

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

Salud OS.

[[Caral]]

Hola

Escrito por Egostar:
Ya he visto lo que has hecho amigo Carlos

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

[[egostar]]

Empezado por Caral

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

[[Caral]]

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

[[Caral]]

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

[[Caral]]

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