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

[kakarotv5]

Empezado por eduarcol

Puedes valerte del uses de Implementation e interface, y seguro que si puedes lograr la bidireccionalidad, yo lo he hecho y lo supe hacer leyendo la cara oculta de delphi 4 trae en apartado dedicado a esto leetelo y veras que facil es

No busco una solución, eso ya lo se hacer (si te fijas lo puse en mi mensaje expresamente para que no pensarais que no sabía hacerlo).

Gracias de todos modos.

[[Lepe]]

[sarcasmo]Tienes razón, el enrevesado eres tú [/sarcasmo]

Ya en serio, el hecho de "necesitar" los uses de forma circular, es causa y consecuencia de un mal diseño.

Imagina, tengo una ventana principal, Form1, y después dos ventanas Form2 y Form3. Ahora quiero usar las 3 de forma circular, y estoy en problemas.

La solución: Crear otra unidad (sin Form asociado), además me ayudo de un tipo enumerado que me evita las referencias circulares:

Código Delphi [-]

Unit publica;

interface
   Uses unit1, unit2, unit3;

Type TAbrir = (aForm1, aForm2, aForm3)

procedure Abrir(QueAbrir:TAbrir);
begin
 case QueAbrir of
   aForm1 : TForm1.Create(application);
   aForm2 : TForm2.Create(application);
   aForm3 : TForm3.Create(application);
end;

Ahora Form1, Form2 y Form3 harán uso de la unidad publica, pero ya estamos evitando crear referencias circulares:

Código Delphi [-]
Unit Unit2;

interface

uses publica;

IMPLEMENTATION

procedure TForm2.blabla(...);
begin 
   Form2 := publica.Abrir(aForm2);
end;

Y en otro sentido: Si las clases comparten atributos, será porque tienen algo en común, por tanto, es lógico que compartan la misma unidad ¿no?

Saludos

[Neftali [Germán.Estévez]]

Empezado por Lepe

[sarcasmo]Ya en serio, el hecho de "necesitar" los uses de forma circular, es causa y consecuencia de un mal diseño.

Bueno, no siempre...
Hay un caso en que a mi me ha salido bastante.
Imagina las clases de un Frame de persistencia. Cada clase en una Unit, para ser ordenado.
Las relaciones recíprocas entre dos tablas se convierten en referencias circulares entre units.

Por ejemplo:
Persona está relacionado con empresa (pertenece), pero empresa también está relacionado con persona (contacto).

[kakarotv5]

Empezado por Neftali

Hay un caso en que a mi me ha salido bastante.
Imagina las clases de un Frame de persistencia. Cada clase en una Unit, para ser ordenado.
Las relaciones recíprocas entre dos tablas se convierten en referencias circulares entre units.

Por ejemplo:
Persona está relacionado con empresa (pertenece), pero empresa también está relacionado con persona (contacto).

Alguien que me entiende.

Vale, os pongo un ejemplo que se me acaba de ocurrir:

Imaginad un dispositivo que además de servir de entrada de datos sirve de salida también, este dispositivo está controlado por una unidad de control.

Tenemos el siguiente funcionamiento:

1) El dispositivo de entrada salida envía una entrada a la unidad de control y esta la almacena.
2) La unidad de control envía un dato al dispositivo de entrada salida y este genera un mensaje.

A mi se me ocurre esta implementación a priori:

Código Delphi [-]
unit uEntradaSalida;

interface

uses StdCtrls, uUnidadControl;

type
  cEntradaSalida = class
                           private
                            Entrada: string;
                            Salida: string;
                            UControl: cUnidadControl;
                           public
                            constructor Create(E: string; S: string; UC: cUnidadControl);
                            procedure EnviarDato;
                            procedure RecibirDato(E);
                           end;

implementation

{ cEntradaSalida }

constructor cEntradaSalida.Create(E: string; S: string; UC: cUnidadControl);
begin
 Entrada := E;
 Salida := S;
 UControl := UC;
end;

procedure cEntradaSalida.EnviarDato;
begin
 UControl.AlmacenarDato(Entrada);
end;

procedure cEntradaSalida.RecibirDato(Dato: string);
begin
 Salida := Dato;
 ShowMessage(Salida);
end;

end.

Código Delphi [-]
unit uUnidadControl;

interface

uses uEntradaSalida;

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

implementation

{ cUnidadControl }

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

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

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

end.

Se que esto, según está planteado es imposible de que compile en Object Pascal.

Puede que el ejemplo os parezca enrevesado pero os aseguro que hay ejemplos no inventados por mi sino otros estudiados en la Ingeniería del Software que no son soportados por Object Pascal a no ser de que se introduzca más de una clase en una misma unidad (si os pica la curiosidad os diré cual es).

Una solución a esto es hacer tres clases:

uUnidadControl.pas
uEntrada.pas
uSalida.pas

Mi pregunta es si en otros lenguajes de programación como Java o C++ por ejemplo ocurre esto también.

Saludos.

[[Lepe]]

Tenía un peaso mensaje preparado, pero creo que no ha lugar.

Según estoy viendo, la pregunta sería:

¿Deben seguir existiendo esas restricciones hoy día? ¿qué opináis?

Hablo de restricciones que fueron dilucidadas hace 10 años (o más). Informáticamente hablando, fueron tomadas en la era glaciar

Saludos

[[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