Circular unit reference

[day]

Hallo

ich bekomme folgende Fehlermeldung:

Circular unit reference to 'ClientMain'

und zwar habe ich zwei Units (ClientMain und MainView). Im ClientMain habe ich ein MainFrame objekt welchem ich beim create ClientMain übergeben möchte.

wie kann ich das problem lösen?

Delphi-Quellcode:

unit ClientMain;

interface

uses
  Windows,
  MainView; //MainView wird benötigt damit ich MainView Objekt erzeugen kann

type
  TClientUnit = class(TForm)

  private

    mMainView : TMainFrame;
  public

  end;

var
  ClientUnit: TClientUnit;

.
.
.
procedure TClientUnit.FormCreate(Sender: TObject);
begin

    mMainView := TMainFrame.Create(self);
    mMainView.Visible := True;

end;



unit MainView;

interface

uses
  Windows, 
  ClientMain;  //ClientMain für den zugriff auf die Mainklasse

type
  TMainFrame = class(TForm)
  private
    { Private declarations }
  public
    procedure create(clientMain : TClientMain);
  end;


var
  MainFrame: TMainFrame;

implementation

[edit=MrSpock]Code Tags korrigiert. Mfg, MrSpock[/edit]

[Luckie]

Du kannst im implementation-Abschnitt noch einen uses-Abschnitt machen.

[fkerber]

Zitat:

Zitat von day

Hallo

Delphi-Quellcode:

unit ClientMain;

interface

uses
  Windows,
//--------> hier raus  MainView; //MainView wird benötigt damit ich MainView Objekt erzeugen kann

type
  TClientUnit = class(TForm)

  private

    mMainView : TMainFrame;
  public

  end;

var
  ClientUnit: TClientUnit;

implementation
.
//------------------------------>>>>.
uses MainView;

.
procedure TClientUnit.FormCreate(Sender: TObject);
begin

    mMainView := TMainFrame.Create(self);
    mMainView.Visible := True;

end;



unit MainView;

interface

uses
  Windows, 
  ClientMain;  //ClientMain für den zugriff auf die Mainklasse

type
  TMainFrame = class(TForm)
  private
    { Private declarations }
  public
    procedure create(clientMain : TClientMain);
  end;


var
  MainFrame: TMainFrame;

implementation

sollte so gehen.


Ciao Frederic

[day]

wenn ich sie aber oben raus nehme, dann ist TMainFrame (MainView) im private bereich nicht mehr bekannt.

Code:

 unit ClientMain;

interface

uses
  Windows,
//--------> hier raus  MainView; //MainView wird benötigt damit ich MainView Objekt erzeugen kann

type
  TClientUnit = class(TForm)

  private

    mMainView : TMainFrame;
  public

  end;

var
  ClientUnit: TClientUnit;

implementation
.
//------------------------------>>>>.
uses MainView;

.
procedure TClientUnit.FormCreate(Sender: TObject);
begin

    mMainView := TMainFrame.Create(self);
    mMainView.Visible := True;

end;

[fiasko]

Er meinte das sicher genau andersrum, also in der MainView das einbinden der ClientMain nach hinten verschieben.

[day]

Aber das problem ist doch, dass ich bei beiden units deklarationen im private bereich habe. somit muss ich die unit im ersten uses einbinden. oder sehe ich das falsch :gruebel:

[fiasko]

OK, den Parameter habe ich überlesen :-).

Dann mußt du es in eine dritte Unit auslagern.

[day]

Eine dritte Unit :pale: ? Finde ich aber nicht so toll, da ich noch in mehreren Units diese vorgehenweise verwenden möchte.