Ver Mensaje Individual
  #1  
Antiguo 25-01-2007
JM75 JM75 is offline
Miembro
 
Registrado: sep 2006
Posts: 25
Reputación: 0
JM75 Va por buen camino
Error: Circular unit reference to 'Unit2'

Hola, al compilar la aplicación me sale el error Circular unit reference to 'Unit2'. Para haceros una idea os hago un resumen, mi aplicación tiene una serie de unidades. algunas son las siguientes:
Código Delphi [-]
Código Delphi [-]
Unit1 (Formulario) 
 
interface uses Unit2
type 
  TMiForm=class(TForm)
  private
  ...........
  public
  ...........
  end;
 
  TClase1=class(TObject)
  private
    variable1:TClase2;
   .............
  public
  ...............
  end;
 
Unit2
interface
uses Unit3;
type
  TClase2=class(TObject)
  private
    variable1:TClase3;
    .............
  public
   ...............
  end;
 
Unit3 (Formulario)
interface
uses Unit1;
type
  TClase3=class(TMiForm)
  private
  .............
  public
  ...............
  end;




Al compilar me da el error de unidad circular al referencia Unida2. Mi problema está en que tengo que declarar las clases en las unidades tal como están ahora, y no puedo referencia las unidades en el "uses" de la parte de "implementation" ya que si no me daría error en la declaración de las clases.
Si a alguien se le ocurre alguna solución se lo agradecería.

Gracias de antemano

Última edición por marcoszorrilla fecha: 25-01-2007 a las 15:44:20.
Responder Con Cita