"übergeordnetes" Object ansprechen

Heyho,

also: Ich habe eine Unit mit einer Klasse. Diese besitzt die Property einer Klasse, die ich in einer anderen Unit untergebracht habe. Nun möchte ich in der "zweiten" Klasse in einer Procedure auf eine Property einer Instanz der "ersten" Klasse zugreifen. Wie tue ich das? U.a. gibt es dann irgendwie Problem mit zirkuläre Referenz... Bsp. (was ich möchte):

"UnitBaum":

markieren

Delphi-Quellcode:

			uses

  UnitAst

type TBaum=class(TObject)

  public

    property EinAst: TAst;

    property Baum_hat_Schaden: boolean;

...

"UnitAst":

zusammenfalten · markieren

Delphi-Quellcode:

			uses

  UnitBaum // ???

type TAst=class(TObject)

  public

    procedure Ast_abbrechen;

...

  procedure TAst.Ast_abbrechen;

  begin

    Breche_Ast_ab;

    MyBaum.Baum_hat_Schaden := true;

  end;

...

Und in meiner MainUnit create ich ein Object von TBaum (MyBaum), sodass ich dann aus der MainUnit heraus nur "Ast_abbrechen" aufrufen brauche, und nicht noch zusätzlich für ein Object von TBaum extra "MyBaum.Baum_hat_Schaden := true" aufrufen muss. Ist praktisch ein Ereignis auf "Ast_abbrechen" ???

Ist das einigermaßen verständlich, wo ich nicht so durchsehe? Da ich selber grad nich so durchsehe, kanns auch sehr unverständlich sein

"übergeordnetes" Object ansprechen

"übergeordnetes" Object ansprechen

Forumregeln