Problem mit Klassen

[Airblader]

Hi :)
Ich hab ein kleines Problemchen *fg*
Folgendes:

Ich habe 2 Klassen, die so definiert sind:

Zitat:

Zitat von Pseudo-Code

Delphi-Quellcode:

type
   TFoo = class(TObject)
      // Some code here
      public
         BlaBla: TBar;
   end;
   TBar = class(TWasGanzAnderes)
      // Some code here
      public
         Anything: TFoo;
   end;

Jetzt sagt er bei "BlaBla: TBar" natürlich, er kennt TBar nicht.
Ich kann die Klassendef. aber nicht unter die von TBar schieben, da er sonst bei "Anything: TFoo" meckern würde.

Jemand eine Idee wie ich das lösen soll/kann?

air

[sniper_w]

Delphi-Quellcode:

type
   TBar = class;

   TFoo = class(TObject)
      // Some code here
      public
         BlaBla: TBar;
   end;

   TBar = class(TWasGanzAnderes)
      // Some code here
      public
         Anything: TFoo;
   end;

[Airblader]

Sowas dachte ich mir auch schon, aber den bringt er eben leider Bezeichner redefiniert :( ;)

Edit:
Quatsch....ich hatte ein class(TObject) im Dummy gehabt - nu isses weg und scheint zu gehen :)
Danke!

air