Klassen-Querverweise

[Dax]

Zirkuläre Referenz. Der Compiler knallt dir das ins Gesicht und verabschiedet sich

[nailor]

Und wenn ich das aber so haben will?

[Dax]

Wollen Du darfst nicht, das ist definiert Versuch mal das zu kompilieren, wie du auch tust, es wird nicht gehen ^^ Gänge es, würde sich der Compiler in einer Endlosschleife verfangen.

[r2c2]

Es gibt noch zwei - nicht besonders schöne, aber dennoch funktionierende Möglichkeiten:

- TypeCasts:

Delphi-Quellcode:

Parent: TObject;

implementation

uses
  ParenTUnit;

procedure DoSomething;
begin
  (Parent as TParent).Irgendwas := 0;
end;

- über ne (globale) Variable auf die anderen Klassen zugreifen:

Delphi-Quellcode:

unit Main_class

MainClass = class(TObject)
private
  FParent: TParent;
  FChild: TChild;
public
  <entsprechende properties>;
...



unit MainForm_U;

var
  Form1: Form1;
  MainClass: TMainClass;



unit Child_class

TParent = class(TObject)
...
procedure DoSomething;
begin
  MainClass.Parent.Irgendwas := 0;
end;

Letzterses funktioniert aber nur, wenn du nur eine Instanz deiner Referenzierten Klasse hast. Alles andere wird mit der Zeit unübersichtlich.

mfg

Christian

[nailor]

das erstere (mit dem Typecast) sieht zwar schrecklich aus und zerbricht das saubere Konzept, aber es wird wohl das einfachste sein.

Zitat von Dax:

Wollen Du darfst nicht, das ist definiert Versuch mal das zu kompilieren, wie du auch tust, es wird nicht gehen ^^ Gänge es, würde sich der Compiler in einer Endlosschleife verfangen.

eben deshalb frage ich ja, WIE ich es machen kann.

[Robert_G]

Zitat von nailor:

eben deshalb frage ich ja, WIE ich es machen kann.

Ich habe oben ein Beispiel angeboten, keine Ahnung warum du lieber nzig-mal fragst anstatt einmal zu lesen...

btw: Das Beispiel in dem anderen Thread hat anscheinend einen Bug im D2005 Komposter gefunbden.

[nailor]

irgendwo hast du recht. aber andererseits ist es auch wieder sau kompliziert!

[Robert_G]

Zitat von nailor:

irgendwo hast du recht. aber andererseits ist es auch wieder sau kompliziert!

Dann stelle spezifische Fragen, vielleicht kommen sogar spezifische Antworten.

[nailor]

ich werde jetzt erstmal testen, ob es nicht reicht, die variable im interface als TObject zu deklarieren und dann in der implementation auf den jeweiligen objekttyp zu casten.