OOP: Bidirektionale Beziehung zw. Klassen [erledigt]

[SirThornberry]

einfach eine vorwardeclaration:

Delphi-Quellcode:

type
  cParticleEffekt = class;

  cParticle=class(TObject)
  private 
    thePosX, thePosY: real; 

    procedure setVelocity(pVelocity: Velocity3f); 
    procedure Kill(); 
  end; 

  cParticleEffekt=class(TObject)
  private 
    theMaxParticleCount: integer; 
    theTime: real; 

    particle: array of cParticle; 

  public 
    procedure Calculate(t: real); 
    procedure addParticle(pIndex, pPreset: integer); 

    constructor create(pMaxParticles: integer); 

  end;