Clases recursivas, ¿Como hacerlo?

[josepicd]

Supongamos que tengo 3 .pas con 1 clase cada uno

La clase 1 contiene un objeto de clase 2 y otro de clase 3.
La clase 2 no contiene nada relevante
La clase 3 contiene un puntero del objeto de la clase 1.

Al meter los uses de da error de redundancia como es de esperar, ¿Como puedo solucionar esto?


----------- file_1.pas --------------------------------------------
uses file_2, file_3;

PC1 = ^TC1;
TC1 = class

f2 : TC2;
f3 : TC3;

end;
----------- file_2.pas --------------------------------------------
TC2 = class

...

end;
----------- file_3.pas --------------------------------------------
uses file_1;

TC3 = class

ptrC1 : PC1
...

end;