¿El problema de la referencia circular de unidades es propio de Object Pascal?

[[Delphius]]

Según estoy viendo....
Esto es un claro ejemplo de un mal diseño. Considero que deberías replantear el diseño y el análisis del problema.

No veo otra manera de resolverlo que reformular el diseño...

No se... ¿Tal vez se trata de un caso especial del uso del patrón Observador?

Saludos,

[[Lepe]]

Empezado por Delphius

No se... ¿Tal vez se trata de un caso especial del uso del patrón Observador?

uy, uy, no me lo mentes... no me lo mentes, que se me cuelga la implementación que hice

[kakarotv5]

Empezado por Delphius

No se... ¿Tal vez se trata de un caso especial del uso del patrón Observador?

Saludos,

No es el caso pero ¡bingo!

Pensé que nadie iba a comentarlo.

Iba a poneros la implementación del patrón Observador para que vierais (los que no lo supieran) que no tiene por qué estar mal planteado el problema ya que con el patrón del Observador ocurre esto aunque se soluciona metiendo al Sujeto y al Observador en la misma Unit.

Saludos.

[[Lepe]]

Empezado por kakarotv5

No es el caso pero ¡bingo!

Pensé que nadie iba a comentarlo.

Entonces, ¿se trata de ponernos a prueba? ¿a todos los foristas? ... pues ten cuidado, que HabEmos muchos y sEmos muy buenos

Saludos

[kakarotv5]

Empezado por Lepe

Entonces, ¿se trata de ponernos a prueba? ¿a todos los foristas? ... pues ten cuidado, que HabEmos muchos y sEmos muy buenos

Saludos

No, no me malinterpretes, en el fondo aun no se ni un 10% de todo lo que rodea a Delphi, por eso vengo tan a menudo por el foro, para aprender de vosotros.

Lo del patrón Observador lo sabía pero estaba esperando a que alguien lo comentara como un caso de esos excepcionales.

Es lo que me gusta de esta comunidad, que sois muchos y buenos.

Saludos.

[[Lepe]]

Yo echo de menos una opción en el IDE que oculte las clases sin referencia a la que desarrollo. Para mi sería genial, un botón de tipo check, o una tecla rápida.

No sé si me he explicado bien, supongamos que tengo en un .pas 3 clases,

TObservador hace referencia a TPatrón.
TMiobjeto es una clase aparte, no tiene nada que ver con la anterior.

Si estoy trabajando sobre TMiobjeto (tengo el cursor del ratón en ella), pulso la tecla rápida y se oculta del .pas TObservador y TPatrón.

BDS2006 permite ocultar procedimientos y métodos, pero es un poco engorroso, entiendo que es el primer paso a lo que digo. Quizás fuera viable como sugerencia a CnPacks o Gexperts.

Saludos

[[Al González]]

Mientras esa limitación exista, una solución es:

Código Delphi [-]
unit uUnidadControl;

interface

type
  cUnidadControl = class
                           private
                            Dato: string;
                            EntradaSalida: Pointer;  {cEntradaSalida}
                           public
                            constructor Create(Dat: string; ES: Pointer {cEntradaSalida});
                            procedure AlmacenarDato(Dat: string);
                            procedure EnviarDato;
                           end;

implementation

Uses
  uEntradaSalida;

{ cUnidadControl }

constructor cUnidadControl.Create(Dat: string; ES: Pointer {cEntradaSalida});
begin
 Dato := Dat;
 EntradaSalida := ES;
end;

procedure cUnidadControl.EnviarDato;
begin
 cEntradaSalida (EntradaSalida).RecibirDato(Dato);
end;

procedure cUnidadControl.AlmacenarDato(Dat: string);
begin
 Dato := Dat;
end;

end.

Saludos.

Al González.