Vermeiden zirkalarer Bezüge

[barnti]

Hallo,
ich habe da ein Problem mit dem Einbinden von Units im uses-Abschnitt:

Delphi-Quellcode:

unit InterfaceDatabase;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs,ProblemDomain;

type
  IDatabase = interface (IInterface)
    procedure Load(PDObject: TPDObject; const ID: TObjectID); virtual; stdcall;
  end;

Dies ist die Deklaration meines Interfaces, welches die Unit ProblemDomain benötigt.

Delphi-Quellcode:

unit ProblemDomain;

interface


uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, InterfaceDatabase;

const
  NotAssigned=0;

type
  TObjectID = type Integer;
  TPDObject = class (TObject)
  private
    FDatabase: IDatabase;
    FID: TObjectID;
    function GetID: TObjectID;
  public
    function IDToStr(Value: TObjectID): string;
    procedure Load(PDObject: TPDObject; const ID: TObjectID); virtual;
  end;
...

procedure TPDObject.Load(PDObject: TPDObject; const ID: TObjectID);
begin
  Assert(FDMObject<> NIL, 'Kein Datenobjekt vorhanden!');
  FDMObject.Load(self,ID); // Hier muss das Interface InterfaceDatabase bekannt sein.
end;

Kann ich die zirkulären bezüge vermeiden? Wie? Ich hätte gern zwei getrennte Units.
Danke.

[Sharky]

Hai barnti,

versuche mal in deiner ProblemDomain die InterfaceDatabase erst nach dem implementation einzubinden.

[fiasko]

Hallo,

du mußt die Units einfach im Implementation teil einbinden.

[barnti]

Hi Sharky,

Zitat:

Zitat von Sharky

Hai barnti,

versuche mal in deiner ProblemDomain die InterfaceDatabase erst nach dem implementation einzubinden.

Das wird nicht gehen, da das Feld 'DMObject' vom Typ IDatabase ist, welche im Interface deklariert ist...

[sakura]

Dann musst Du die Dinge, welche beide Units im Interface benötigen in eine dritte Unit auslagern. Ansonsten doch eine, aber das willst Du ja nicht.

...:cat:...

[barnti]

Zitat:

Zitat von sakura

Dann musst Du die Dinge, welche beide Units im Interface benötigen in eine dritte Unit auslagern. Ansonsten doch eine, aber das willst Du ja nicht.

...:cat:...

Ok! Werde mal überlegen, was mir besser gefällt...Danke.

[barnti]

Hallo,

dann stellt sich allerdings die Frage wie ich so etwas im Modell darstelle. Ich möchte ja eigentlich im Modell jeweils eine eigene Klasse. Ich habe mal mein Modell eingefügt...