OOP: Bidirektionale Beziehung zw. Klassen [erledigt]

[Hawkeye219]

So geht es:

Delphi-Quellcode:

type 

  cParticleEffekt = class;
  
  cParticle = class
  private
    thePosX, thePosY: real;
    ParticleEffekt: cParticleEffekt;

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

    constructor create(pParticleEffekt: cParticleEffekt);
  end;

// type <-- das darf hier nicht stehen

  cParticleEffekt = class
  private
    theMaxParticleCount: integer;
    theTime: real;

    particle: array of cParticle; 

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

    constructor create(pMaxParticles: integer);

  end;

Innerhalb eines Deklarationsabschnitts müssen alle Typen vollständig definiert sein. Mit der zweiten TYPE-Anweisung wurde der erste Abschnitt beendet und ein zweiter begonnen.

Gruß Hawkeye