auf Klassen-Variable innerhalb einer anderen Klasse zugreifen

[bernau]

Juergen, wenn du die Möglichkeit hast, beide Units in eine Unit zusammenzuführen, dann hast du mittels Forward Declarations die Möglichkeit beide Klassen miteinander bekannt zu machen. Geht aber nur in der gleichen Unit.

Damit kann eine Klasse jeweils auf die anderen Klasse zugreifen.

[kretabiker]

Ich wuerde den Vorschlaegen von himitsu und delphi.narium Vorschlag folgen, Stichwort Dependency Injection, lose Koppung usw. Damit waere evtl auch die globale Variable nicht mehr notwendig, aber das haengt von der grundsaetzlichen Anwendungsarchitektur ab

[jus]

Zitat von bernau:

Juergen, wenn du die Möglichkeit hast, beide Units in eine Unit zusammenzuführen, dann hast du mittels Forward Declarations die Möglichkeit beide Klassen miteinander bekannt zu machen. Geht aber nur in der gleichen Unit.

Damit kann eine Klasse jeweils auf die anderen Klasse zugreifen.

Ich bin öfters mal auf die Forward Deklaration gestossen, nur für welchen Anwendungszweck ist diese Forward Deklaration eigentlich gut?

[Uwe Raabe]

Zitat von jus:

Ich bin öfters mal auf die Forward Deklaration gestossen, nur für welchen Anwendungszweck ist diese Forward Deklaration eigentlich gut?

Neben dem Beispiel in der Doku kommt z.B. folgender Beispiel-Fall zur Anwendung:

Delphi-Quellcode:

type
  TContainer = class;

  TContainerItem = class
  private
    FContainer: TContainer;
  protected
    procedure RecalcAll;
  public
    procedure Recalc;
  end;

  TContainer = class
  private
    FItems: TArray<TContainerItem>;
  public
    procedure RecalcAll;
  end;

procedure TContainerItem.RecalcAll;
begin
  FContainer.RecalcAll;
end;

procedure TContainer.RecalcAll;
begin
  for var item in FItems do
    item.Recalc;
end;

Hier wissen die Items, zu wem sie gehören und können was auch immer damit tun.

[himitsu]

Delphi-Quellcode:

type
  TMyClass2 = class;

  TMyClass1 = class
    FClass2: TMyClass2;  << die 2 gibt es hier "eigentlich" noch nicht.
  end;

  TMyClass2 = class
    FClass1: TMyClass1;  << die 2 hätte man auch vor die 1 verschieben können, aber dann würde der Compiler das hier nicht mehr kennen ;)
  end;

Delphi-Quellcode:

type
  PMyRecord = ^TMyRecord;
  TMyRecord = record
    FNext: PMyRecord;
  end;

Geht aber nur innerhalb des selben TYPE
und ausschließlich für zeigerbasierte Typen (z.B. Pointer, Klassen und Interfaces), weil dort ist bereit bekannt, wie groß dieser Typ nachfolgen wird ist (Win32 = 4 Byte).