Mantener un timer ejecutandose cada minuto dentro de la aplicacion

[roman]

Sí, sí, todo eso ya lo sé. Pero insisto en que no tiene nada que ver con lo que aquí hablamos. Repito: la acumulación de errores aquí no importa porque la cuenta se reinicia cada vez. Reiniciar es la palabra clave.

// Saludos

[rgstuamigo]

Sí, sí, todo eso ya lo sé. Pero insisto en que no tiene nada que ver con lo que aquí hablamos. Repito: la acumulación de errores aquí no importa porque la cuenta se reinicia cada vez. Reiniciar es la palabra clave.

Si, eso es en el Timer, pero en realidad en el tiempo real no.
Es decir como el timer se reinicia internamente,entonces con relacion al tiempo real que debiera salir el aviso variaria en pequeñas fracciones de tiempo.
Desde luego no vamos a polemizar el tema, como algunos dicen ni si quiera el interesado se manifiesta.. .
Saludos...

[Lizette]

Gracias por sus comentarios ..

[Lizette]

Hola chicos, ps implemente lo del timer cada segundo interval=1000 el k viene por defecto, pero el problema esk tengo que abrir la tabla y revisar si hay registros que coincidan con la fecha y hora actual, pero en donde implemento este timer es un formulario que tiene 4 check box, para k el usuario elija la opcion a la que kiere acceder, hago lo siguiente en el ontimer, pero no me permite acceder a ninguna opcion de los checkbox del formulario, no me keda mas k ponerle run-program reset.

Código Delphi [-]
var
fecha:string;
dia:string;
mes:string;
ano:string;
ff:string;
hr:string;
hor:string;
minu:integer;
min:string;
hrs:string;
mer:string;

begin
if(activar=1)then
begin
  hr:=TimeToStr(time());
  hrs:=copy(hr,1,2);
  min:=copy(hr,4,2);
  mer:=copy(hr,10,4);
  minu:=StrToInt(min);
  min:=IntToStr(minu);
  hor:=hrs+':'+min+' '+mer;

fecha:=DateToStr(date());
dia:=(copy(fecha,1,2));
mes:=(copy(fecha,4,2));
ano:=(copy(fecha,7,4));
ff:=ano+'-'+mes+'-'+dia;

ADOtblRec.Open; //Si esto lo pongo
while ADOtblRec.Eof<>True do
begin
//aqui no da problemas pero ps no revisa la tabla
if(ADOtblRec.Locate('Fecha',ff ,[loPartialKey,loCaseInsensitive]))and (ADOtblRec.Locate('Hora',hor ,[loPartialKey,loCaseInsensitive]))then
 begin

  if not(frmMostrarRec.Active=True)then
   frmMostrarRec.ShowModal;
  sndPlaySound('C:\WINDOWS\Media\chimes.wav',SND_NODEFAULT Or  SND_ASYNC);
  frmMostrarRec.RichRec.Lines.Add(ADOtblRec.FieldValues['Hora']);
  frmMostrarRec.RichRec.Lines.Add(ADOtblRec.FieldValues['Evento']);

  ADOtblRec.Edit;
  ADOtblRec.Delete;
  ADOtblRec.Refresh;

end;//locate
 end;//while
  ADOtblRec.Close;
end;//activar
end;//ppal

Espero k me puedan ayudar, ya le he intentado de varias maneras y nada..
Gracias

[[Lepe]]

¿donde avanzas o retrocedes de registros en el bucle while?

Si se encuentra un registro, se edita y se borra (no sé para qué pero bueno... eso es otra historia), el tema es que al borrar sí se avanza en los registros del adotable, pero si no entra en el locate, tienes un bucle infinito.

...creo!

[Lizette]

mmm gracias por la idea, revisare ese detalle..

[Lizette]

Problema resuelto [Lepe], gracias, sí era eso, entraba a un bucle infinito