Ver Mensaje Individual
  #3  
Antiguo 23-09-2019
Avatar de gatosoft
[gatosoft] gatosoft is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Bogotá, Colombia
Posts: 833
Reputación: 21
gatosoft Va camino a la fama
Cita:
Empezado por dec Ver Mensaje
Hola a todos,

Una posible solución puede ser declarar los miembros como "TObject": tú sabes que el objeto será del tipo que sea, y, podrás hacer el "cast" correspondiente, pero, las unidades que declaren dicho tipo podrán ir en la claúsula "implementation", evitando el tipo de error que comentas.

De todas formas, a ver si algún compañero puede dar alguna otra solución.
Esa podria ser una solución, pero si existe la opción de definir las clases en la misma unidad, se resolvería el tema de la referencia circular, asi:
Código Delphi [-]
TC3 = class ; //indica que hay una clase llamada TC3 que se definirá mas adelante

TC1= class
  f3: TC3;
end;

TC3= class
  f1: TC1;
end;

Por otro lado, no entiendo la necesidad de PC1 = ^TC1;...
Responder Con Cita