Einzelnen Beitrag anzeigen

hzzm

Registriert seit: 8. Apr 2016
103 Beiträge
 
Delphi 10 Seattle Professional
 
#1

Die alte Leier: Zirkulaere Referenzen, aber warum nicht so: ...?

  Alt 25. Jul 2017, 07:34
Delphi-Version: 10 Seattle
Ich hab hier schon etliche Beitraege gesucht und gefunden, die sich damit befassen, wie man Zirkulaere Unit-Referenzen verhindert.

Ich befinde mich in einer Situation, in der eine zirkulaere Referenz unvermeidbar ist und kam mit einer leicht anderen Loesung hinterm Ofen hervor.

Vielleicht laufe ich damit spaeter in eine Sackgasse, oder ihr kennt andere Gruende warum ich das so nicht machen sollte.

Die Loesung, die ich am oeftesten sehe, beinhaltet ein Umgehen der Rueck-Referenz mit Events. Aber warum eigentlich Events?
Kann ich nicht genauso gut die Funktionen in einer Proxy-unit anlegen und callen?
Delphi-Quellcode:
// MyMain.pas
uses
  UnitX, MyMainProxy;

type
  TMyMain = class(TForm)
    StatusEdit: TEdit;
    procedure SetGUIStatusOn;
  public
    FormCreate(Sender: TObject)
  end;
[...]

procedure TMyMain.FormCreate(Sender: TObject);
begin
  MMSetGUIValue := SetGUIStatusOn;
end;

procedure TMyMain.SetGUIStatusOn;
begin
  StatusEdit.Text := 'PowerMonger status ON!';
end;
Delphi-Quellcode:
// MyMainProxy.pas
unit MyMainProxy;

interface

var
  MMSetGUIValue: Procedure of Object;

implementation

end.
Delphi-Quellcode:
// UnitX.pas (zirk. Ref. <-> MyMain benoetigt)
uses
  MyMainProxy;
  
procedure UnitX.PerformHCoreOperation;
begin
  MMSetGUIValue;
end;

Geändert von hzzm (25. Jul 2017 um 09:35 Uhr) Grund: Code-Block in drei Delphi-Blöcke aufgeteilt
  Mit Zitat antworten Zitat