¿Puede el objeto TTimer ser un campo de una clase Delphi?

Question

Empecé a aprender Delphi hace dos días pero me quedé atascado. Me derrumbé porque nada va en mi dirección, así que decidí escribir aquí. Quería crear una clase que tuviera un campo con su propio objeto TTimer y que realizara alguna acción en algún intervalo de tiempo. ¿Es posible? Supongamos que tenemos dicho código:

Sth = class 
private 

public 
    clock:TTimer; 
    procedure clockTimer(Sender: TObject); 
    constructor Create(); 
end; 

constructor Sth.Create() 
begin 
    clock.interval:=1000; 
    clock.OnTimer := clockTimer; 
end; 

procedure Sth.clockTimer(Sender: TObject); 
begin 
    //some action on this Sth object at clock.interval time... 
end; 

Mi código similar copia pero no funciona correctamente. Cuando llamo al constructor, el programa falla (violación de acceso en la línea: clock.interval: = 1000;). No sé qué

Sender:TObject 

pero creo que ese no es el problema. ¿Es posible crear esa clase que quiero?

Answer 1

No ha creado el temporizador. Declarar una variable no es suficiente. Usted necesita crear el temporizador.

constructor Sth.Create() 
begin 
    clock := TTimer.Create(nil); 
    clock.interval:=1000; 
    clock.OnTimer := clockTimer; 
end; 

Y deberías destruirlo también. Añadir un destructor de la clase

destructor Destroy; override; 

e implementarlo como esto

destructor Sth.Destroy; 
begin 
    clock.Free; 
    inherited; 
end; 

También recomendaría que hacer que su campo clock tiene visibilidad privada. No es bueno exponer los aspectos internos de una clase como esa.

TMyClass = class 
private 
    FClock: TTimer; 
    procedure ClockTimer(Sender: TObject); 
public 
    constructor Create; 
    destructor Destroy; override; 
end; 
.... 
constructor TMyClass.Create 
begin 
    inherited; 
    FTimer := TTimer.Create(nil); 
    FTimer.Interval := 1000; 
    FTimer.OnTimer := ClockTimer; 
end; 

destructor TMyClass.Destroy; 
begin 
    FTimer.Free; 
    inherited; 
end; 

Tenga en cuenta que he incluido llamadas al constructor heredado y al destructor. Estos no son necesarios en esta clase ya que deriva directamente de TObject y el constructor y destructor para TObject está vacío. Pero si cambias la herencia en algún momento y haces que tu clase provenga de una clase diferente, entonces necesitarás hacer esto. Entonces, en mi opinión, es una buena práctica incluir estas llamadas siempre.