Eliminando items en TTimer...

[[Lepe]]

El problema que yo le veo, es estar mirando cada 100 milisegundos la hora

Lo lógico, ver la tarea más cercana y programar el timer para esa fecha. Llegada esa hora, mostrar alerta al usuario y reprogramar el timer para la siguiente fecha de aviso.

Edito: El código que ha de ejecutarse cada 100 milisegundos es demasiado extenso, debería ser muy pocas lineas, de lo contrario, puedes perder eventos, porque uno llegue cuando el anterior no se ha terminado, y en el peor de los casos, puede que esté en un evento que no hay tareas definidas, pero en el siguiente evento, que se pierde por solaparse con el primero, si puede haber tareas. No sé si queda claro o no....

Mira estos hilos:
http://www.clubdelphi.com/foros/show...t=recordatorio

y los que allí se menciona.

saludos

[[Gunman]]

Mmmm, CompareDate... Bonita función existe la CompareTime? Veo que si! Fantástico, esto me ayudará mucho, pero de todas formas. Cada X tiempo se deberá ejecutar la función compareTime no? No me evito el TTimer, creo...

[[Lepe]]

Como bien dices, el Timer lo necesitas, pero en lugar de ponerle un interval de 100 milisegundos, le pones el total que necesites, por ejemplo:

Código Delphi [-]
var FechaAviso:Tdatetime; // tendrá la fecha y hora de la nota o tarea
     miliseg:Word;
begin
milisegundos := MillisecondsBetween(fechaAviso, Now);
if miliseg > 1000 then
begin
 Timer1.Interval := miliseg;
 Timer1.Enabled := true;
end;

Como miliseg es de tipo Word, creo que permitía almacenar algo así como 9 semanas, es decir, puedes establecer 1 sola vez el timer para que te avise dentro de 9 semanas.

La función compareTime no la necesitas, una fecha y hora se guarda como un número en coma flotante, donde la parte entera corresponde a los dias que han pasado sobre la fecha base del calendario,(creo recordar que la fecha base de los calendarios es 01/01/1900, de hecho si asignas a una fecha el valor cero, te dará 31/12/1899, un día menos ). La parte fraccionaria de ese número es la hora.

Si quieres saber si una fecha es más grande que otra...:

Código Delphi [-]
  if fechaAviso > Now() then

Sumar dias, horas o minutos a fechas:

Código Delphi [-]
  const UnDia = 1; 
           UnaHora = 1 / 24; // sumamos la parte fraccionaria de un dia (24 horas)
          UnMinuto = 1 /( 24 *60);
         UnSegundo = UnMinuto / 60;
begin
   FechaAviso := now() + undia; // la misma hora que hoy, pero con fecha de mañana

saludos