Ver Mensaje Individual
  #1  
Antiguo 23-09-2019
josepicd josepicd is offline
Miembro
 
Registrado: jun 2015
Posts: 57
Reputación: 9
josepicd Va por buen camino
Clases recursivas, ¿Como hacerlo?

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;
Responder Con Cita