Ver Mensaje Individual
  #2  
Antiguo 12-02-2009
Avatar de arturom
arturom arturom is offline
Miembro
 
Registrado: dic 2003
Ubicación: Alicante
Posts: 91
Reputación: 21
arturom Va por buen camino
Prueba esto

Hola,
quizás podrías probar este código a ver si te sirve, utiliza la variable bExec para chequear que se repita solo una vez:

Código Delphi [-]
  bExec: Bool; // atributo del formulario

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (not bExec) and (TimeToStr(Time)='22:12:00') then begin
    bExec:= true;
    // Proceso una gran cantidad de datos
  end;
end;

Saludos
__________________
"No guardes nunca en la cabeza aquello que te quepa en un bolsillo."

Albert Einstein

Última edición por arturom fecha: 12-02-2009 a las 20:58:18.
Responder Con Cita