Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Referencia circular (https://www.clubdelphi.com/foros/showthread.php?t=37047)

Enan0 31-10-2006 22:03:18

Referencia circular
 
Hola Gente, tengo un problema con los Citado en el Titulo, Estube Buscando en el foro y encontre unos cuantos hilos en los que se hace referencia dicho inconveniente. Los cuales ya los tenia de alguna forma en mente.

es decir. para evitar referencias ciruclares a una unidad ambas deberian estar en el Uses del Implementation.

Me ha tocado la suerte de salvar unos errores de una Dll hecha hace mucho tiempo y por alguien que ya no esta, y como muchos se debe inmaginar. no compila, Que raro no?

el incoveniente que tengo. es que (por poner un nombre) La unit1 Tiene declarado una clase en la cual hereda cosas de la unit2 . y en la querida unit2 hace referencia en la seccion Implementation a la Unit1.

y asi se repite el caso con unas cuantas unidades. (algo como 7), donde en el Uses de la seccion Interface del la unit1 hace referencia a varias unidades, las Cuales luego hacen refecina a Dicha unidad en la SEccion implementation.-

Alguna idea de como puedo solucionar esto?, (sin escribir la dll de nuevo claro:D)

Saludos y gracias

roman 31-10-2006 22:17:20

No deberías tener ningún problema. Para evitar la referencia circular basta que una esté en la sección implementation:

Código Delphi [-]
unit Unit1;

interface

uses Unit2;

{
  Aquí puede haber referencias a Unit2
}

implementation

{
  Aquí también, si quieres
}

end.

Código Delphi [-]
unit Unit2;

interface

implementation

uses Unit1;

{
  Aquí puede haber referencias a Unit1
}

end.

// Saludos

Enan0 31-10-2006 22:33:33

Si roman Asi deberia ser. pero parece que este querido Codigo no lo entiende asi. o ya estoy tan ofuscado que no puedo verlo. bueno gracias de todos modos. Saludos

Enan0 31-10-2006 22:56:26

No Hay Caso
 
Código Delphi [-]
interface

uses
  Classes,
  TtDb, TtParm, TtPerson,TtBind,TtRef,TtId,TtPrefs,TtBlocks,
  TtCompan,
  TtTaskEx,
  TtTypes,TtMsg,TtIntMsg,TtPrj,TtCurren,TtExpens,TtItemEx,
  xDb,xDbUnit, XUtil;


Ya me revise cada una de las unidades que estan en el Uses y nada estan las que hacen referencia. siempre en implementation. pero siempre el promtp se para al comienzo de la que esta en Rojo..
"Cirular unit reference to "TTdbRRw""
ese es el error :'(


La franja horaria es GMT +2. Ahora son las 17:29:59.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi