Ver Mensaje Individual
  #7  
Antiguo 24-11-2011
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
 
Registrado: may 2003
Posts: 5.604
Reputación: 30
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
No te preocupes kdemia, aquí todos aprendemos algo nuevo todos los días.

Bien, veo que editaste tu mensaje para poner el código que deseaba ver. Es lo que me temía. Te falta crear la instancia del objeto. La sintaxis es:
Código Delphi [-]
Cola := TCola.Create;
Y para destruirlo:
Código Delphi [-]
Cola.Free;

Adicionalmente, es aconsejable que no crees un método llamado Free para las tareas de finalización / liberación (el método Free ya existe en la clase base TObject). Lo recomendable es definir un destructor llamado "Destroy", declarándolo además con la directiva Override. Así, cuando llames al método Free (el nativo que TCola hereda de TObject), éste llamará a tu destructor para liberar los elementos de la lista.

En el foro encontrarás mucho material y ejemplos sobre definición de clases con constructores y destructores.

Por otro lado, considera que en Delphi ya existen varias clases nativas de propósito similar a TCola.

Saludos.
Responder Con Cita