Đối tượng TTimer có thể là một trường của lớp Delphi không?

Question

Tôi bắt đầu học Delphi hai ngày trước nhưng tôi bị kẹt. Tôi đã phá vỡ vì không có gì đi theo cách của tôi vì vậy tôi quyết định viết ở đây. Tôi muốn tạo ra một lớp có một trường với đối tượng TTimer của riêng nó và nó sẽ thực hiện một số hành động trong một khoảng thời gian nào đó. Thậm chí có thể không? Giả sử chúng tôi có mã như vậy:

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; 

Copiles mã tương tự của tôi nhưng không hoạt động bình thường. Khi tôi gọi hàm khởi tạo chương trình bị treo (truy cập vi phạm tại dòng: clock.interval: = 1000;). Tôi không biết những gì

Sender:TObject 

nhưng tôi nghĩ đó không phải là vấn đề. Tôi có thể tạo lớp học như vậy không?

Answer 1

Bạn chưa tạo bộ hẹn giờ. Khai báo một biến là không đủ. Bạn cần tạo bộ hẹn giờ.

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

Và bạn cũng nên phá hủy nó. Thêm một destructor lớp

destructor Destroy; override; 

và thực hiện nó như thế này

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

Tôi cũng sẽ khuyên bạn nên làm cho lĩnh vực clock của bạn có tầm nhìn riêng. Nó không tốt để lộ các lớp bên trong của một lớp như thế.

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; 

Lưu ý rằng tôi đã bao gồm các cuộc gọi đến hàm tạo và hàm hủy kế thừa. Đây không phải là cần thiết trong lớp này vì nó xuất phát trực tiếp từ TObject và hàm tạo và hàm hủy cho TObject trống. Nhưng nếu bạn thay đổi thừa kế tại một số điểm, và làm cho lớp của bạn xuất phát từ một lớp khác, thì bạn sẽ cần phải làm điều này. Vì vậy, theo quan điểm của tôi, thực hành tốt là luôn luôn bao gồm các cuộc gọi này.