Soy nuevo en delphi/free pascal y creo que tengo un error de concepto, pues estoy acostumbrado a java y quizás no se puedan plantear las cosas de la misma forma. Espero que puedan ayudarme.
Estoy utilizando Lazarus v1.6RC1.
Tengo una clase TControl
en una unit uControl
y una clase TRed
en una unit TRed
. La unit uControl
tiene la unit uRed
en uses. La case TControl
tiene un atributo llamado FRed
, cuyo tipo es TRed
(es una instancia de TRed
). El caso es que en un momento dado, necesito llamar a un procedure de TControl
desde TRed
. Mi intención es tener acceso a la instancia de TControl
desde TRed
, para poder acceder a sus métodos, eso es algo que hacía en java, pero aquí no parece funcionar. Lo que estoy haciendo es lo siguiente:
Clase TControl
:
TControl = class(TObject)
procedure procesaEntradaRed(pComando : TComando)
public
FRed : TRed;
Clase TRed
:
TRed = class(TObject)
constructor Create(pControl : TControl)
public
FControl : TControl;
Cuando instacio TRed
en TControl
lo hago así:
FRed := TRed.Create(Self);
Y el constructor de TRed
es así:
constructor TRed.Create(pControl : TControl)
begin
FControl := pControl;
end;
La llamada en la que tengo el error es esta:
FControl.procesaEntradaRed(lComando);
El mensaje de error es el siguiente:
uRed.pas(662,12) Error: identifier idents no member "procesaEntradaRed"
He intentado ver qué métodos eran visibles de TControl
desde TRed
, y ninguno de los que he creado en TControl
es visible, aunque sí los métodos propios de TObject
.
He puesto sólo las partes del código que intervienen en el problema para ser conciso.
Gracias de antemano y perdón por la inexperiencia.
EDIT:
La línea donde hago la llamada se encuentra en uRed
, al final de un procedure cuya declaración es:
procedure TRed.UDPRead(AThread: TIdUDPListenerThread; const AData: TidBytes; ABinding: TIdSocketHandle);
Sin embargo, al comentar esa línea, salta error al instanciar TRed, pasando Self como parámetro:
FRed := TRed.Create(Self);
El error es el siguiente:
uControl.pas(146,69) Error: Incompatible type for arg no. 3: Got > >"UCONTROL.TControl", expected "CONTROLS.TControl"
Pone que falla el parámetro 3, es porque además paso 2 strings, no las muestro para no confundir.
El fallo parece estar en el Self, pero no sé cómo solucionarlo.