Clases recursivas, ¿Como hacerlo?

[[gatosoft]]

Empezado por dec

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;...