clase que contiene otra clase definida de forma posterior
 

Hola a todos, quisisera preguntaros si existe alguna forma de solucionar un problema que tengo, y es que tengo una clase Tin que contiene una variable del tipo Tout, y una clase Tout que contiene otra de la clase Tin:

type TIn=class
...
Cout : Tout; <- Da error de undeclared identifier
...
end;

type TOut=class
...
vTIn : array of TIn;
...
end;

Como una clase esta definida despues de otra, la variable de la clase definida despues no la reconoce. ¿Como podria solucionarlo?
Muchas gracias.

Código Delphi [-]
TYPE
  TIn = CLASS;

  TOut = CLASS
  PUBLIC
    fIn: TIn;
  END;


  TIn = CLASS
  PUBLIC
    fOut: TOut;
  END;

Et voilá!

Aun así, has de andarte con cuidado al utilizar este tipo de relaciones cíclicas. Intenta evitarlas y buscar otra solución, si es posible.

Hola astwin, bienvenido al foro, como sugerencia puedes poner tu codigo dentro de etiquetas para sea mas legible.

Respecto a tu problema, lo que debes hacer es definir la TOut antes que TIn ... pero no completa :p

Te quedaria asi:

Código Delphi [-]
type

  TOut = class;

  TIn=class
  ... 
  Cout : Tout;
  ...
  end; 

  type TOut=class
  ...
  vTIn : array of TIn; 
  ...
  end;

Suerte

jeje, me ganaste de mano Ñuño :D

Muchisimas gracias a ambos. Ya funciona bien :p.

Has de ser más rápido, joven padawan... :D

De nada. :)