Làm thế nào để sử dụng một phương pháp của một đối tượng được lưu trữ trong TList?

Question

Câu hỏi của tôi khá đơn giản. Tôi có một TList (gọi là queue) chứa các đối tượng của lớp CNotif và muốn sử dụng phương thức is_alive trên các đối tượng đó.

Vấn đề là khi tôi sử dụng queue.Items[0].is_alive(), tôi nhận được thông báo lỗi cho biết Error: Illegal qualifier.

Tôi cũng bối rối với cách tôi có thể nhanh chóng đối tượng trong TList này (và làm thế nào cách trình biên dịch "biết" rằng các đối tượng được lưu trữ là thuộc loại này ...)

Những gì tôi làm bây giờ là : queue.Add(CNotif.create(timer, title, text, badge)) nhưng tôi không nghĩ rằng nó phải được thực hiện theo cách đó.

Cảm ơn bạn trước!

Answer 1

The problem is, when I use queue.Items[0].is_alive(), I get an error message saying Error: Illegal qualifier.

Đó là do trình biên dịch không biết queue.items[0] nào khác với con trỏ chung (xem bên dưới).

What I do now is: queue.Add(CNotif.create(timer, title, text, badge)) but I don't think it's supposed to be done that way.

Đây chính là cách bạn cần thực hiện. CNotif.Create tạo đối tượng mới và đối tượng đó xuống từ TObject. Nó biên dịch tốt vì cuộc gọi queue.Add của bạn đang mong đợi một con trỏ, và một biến Delphi/FreePascal chứa một cá thể đối tượng thực sự là một con trỏ. (Cả hai ngôn ngữ ẩn cần phải dereference sử dụng MyObj^ cho chúng ta.)

Để sử dụng một cái gì đó trong queue.Items, bạn cần phải nói với trình biên dịch những gì trong đó khác hơn là một generic pointer (trong đó tất nhiên không có một phương pháp is_alive) . Bạn làm điều đó bằng cách gõ:

CNotif(queue.Items[0]).is_alive 

Lưu ý: Có cách ngắn hơn để sử dụng TList.Items; Items được khai báo là thuộc tính mặc định cho TList, vì vậy bạn có thể bỏ qua nó:

queue[0] 

cũng giống như

queue.Items[0] 

và dễ dàng hơn nhiều để gõ.

Answer 2

Trừ khi bạn đang mắc kẹt với một phiên bản Delphi cũ, bạn nên nhìn vào generics.

Trong đơn vị generics.collection có một lớp học TList<T> mà bạn có thể sử dụng tại đây.

Queue:TList<CNotify>; 

... 
Begin 
    Queue := TList<CNotify>.Create; // remember to clean it up 
    Queue.Add(CNotify.Create(...)); 
    Queue.Add(CNotify.Create(...)); 

    If Queue[0].isAlive then 
    Beep; 
End; 

Tôi chưa sử dụng fpc và lazarus trong một thời gian, nhưng ở Delphi, đây chắc chắn là cách để làm điều này. Danh sách các con trỏ không được phân loại và loại phôi trên khắp nơi có thể trở thành một cơn ác mộng để duy trì.