[TTimer] Ver tiempo actual para completar el ciclo de un Timer

[dec]

¡Hola a todos!

Empezado por ecfisa

¡ No hombre ! que bién pude equivocar la interpretación y él querer otra cosa, ya nos especificará MAXIUM que es lo que anda necesitando.

Saludos

Nada, nada... excusas. Yo lo que digas tú hasta el final. ¡Lo digo muy en serio!

[MAXIUM]

Hola que tal,

Me refería a los segundos transcurridos.

Sin embargo, es útil saber el proceso inverso para ver los segundos o tiempo faltante, y usarlo en algún proyecto futuro. Sino es por mi, será por alguien más.

Por lo tanto, agradezco vuestra colaboración

[Ñuño Martínez]

Lo más "fácil" sería usar dos TTimer: uno para los 30 segundos y otro para cada segundo, tal como comenta ecfisa, pero yo usaría sólo un TTimer que se activara cada segundo y fuera actualizando una variable (o el propio "Tag" del componente) y el TLabel hasta llegar a treinta, más o menos así:

Código Delphi [-]
INTERFACE

  TYPE
  (* El formulario. *)
    TMiForm = CLASS (TForm)
      ElTimer: TTimer;
      ElLabel: TLabel;

      PROCEDURE onTimerTick (Sender: TObject);
    { ... }
    PRIVATE
      fContador: INTEGER = 0;
    { ... }
    END;

IMPLEMENTATION

{ ... }

  PROCEDURE TMiForm.onTimerTick (Sender: TObject);
  BEGIN
    INC (fContador);
    IF fContador >= 30 THEN
    BEGIN
    { Aquí se hace la operación que se requiera, o se activa un evento, o lo que sea
       y se reinicia el contador. }
      fContador := 0
    END;
    ElLabel.Caption := IntToStr (fContador)
  END;

{ ... }

Las ventajas son que usas menos recursos (y aún menos si en vez del campo fContador usas la propiedad Tag del TTimer), pero principamente evitaras tener que sincronizar dos TTimer diferentes, que puede parecer que no pero puede dar problemas.