¿Cómo usar un método de un objeto almacenado en un TList?

Question

Mi pregunta es bastante simple. Tengo un TList (llamado queue) que contiene objetos de la clase CNotif y quiero usar el método is_alive en esos objetos.

El problema es que cuando uso queue.Items[0].is_alive(), aparece un mensaje de error que dice Error: Illegal qualifier.

también estoy confundida con la forma en que puedo crear instancias de objetos en este TList (y cómo la forma en que el compilador "sabe" que los objetos almacenados son de este tipo ...)

Lo que hago ahora es : queue.Add(CNotif.create(timer, title, text, badge)) pero no creo que se suponga que se haga de esa manera.

¡Gracias de antemano!

Answer 1

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

Esto se debe a que el compilador no tiene idea de lo que queue.items[0] es distinto de un puntero genérico (véase más adelante).

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.

Esta es exactamente la forma en que necesita hacerlo. CNotif.Create construye un nuevo objeto, y ese objeto desciende de TObject. Compila bien porque su llamada queue.Add está esperando un puntero, y una variable Delphi/FreePascal que contiene una instancia de objeto es en realidad un puntero. (Las dos lenguas ocultan la necesidad de eliminar la referencia usando MyObj^ para nosotros.)

usar algo en queue.Items, es necesario indicar al compilador que hay ahí que no sea un genérico pointer (que por supuesto no tiene un método is_alive) . Usted hace eso encasillamiento:

CNotif(queue.Items[0]).is_alive 

Nota: Hay un camino más corto para utilizar el TList.Items; Items se declara como la propiedad predeterminada para el TList, por lo que se puede omitir:

queue[0] 

es lo mismo que

queue.Items[0] 

y es mucho más fácil de escribir.

Answer 2

A menos que estés atascado con una versión antigua de Delphi, deberías buscar genéricos.

En la unidad generics.collection hay una clase TList<T> que puede usar aquí.

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; 

No he utilizado FPC y Lazarus por un tiempo, pero en Delphi Esta es definitivamente la manera de hacerlo. Las listas de punteros sin tipo y de tipos en todo el lugar pueden convertirse en una pesadilla para mantener.