Erzeugung und Vernichtung von Tochterobjekten bei der Aggregation

Es soll an einem kleinen Beispiel eine mögliche Realisierung einer "hat-Beziehung" aufgezeigt werden. Wie in folgendem Klassendiagramm gezeigt, soll ein Spiel-Objekt zwei Würfel-Objekte "haben".

Das Spiel-Objekt soll für Erzeugung und Vernichtung der beiden Würfel-Objekte verantwortlich gemacht werden. Bei Erzeugung des Spiel-Objekts sollen automatisch die Wuerfel-Objekte mit erzeugt werden. Das kann durch eine Erweiterung des TSpiel-Konstruktors geschehen. Ebenso soll der Destruktor die Freigabe des Speichers der Würfel-Objekte übernehmen. In einem ersten Schritt wird die Beziehung durch die beiden Referenzvariablen Wuerfel1 und Wuerfel2 in der Klassendefinition von TSpiel zum Ausdruck gebracht. Die zusätzliche Funktionalität des Konstruktors und des Destruktors macht eine Erweiterung der ererbten Methoden "Create" und "Destroy" erforderlich.


  TSpiel = class(TObject)
  private
    Wuerfel1, Wuerfel2 : TWuerfel;
  public
    constructor Create;
    destructor Destroy;
    procedure wuerfeln;
    function wurf1 : byte;
    function wurf2 : byte;
  end;

Es ist zu bedenken, dass eine "Neudefinition" des Konstruktors den alten nicht ersetzt, sondern nur "überdeckt". Dh. es gibt (mindestens) zwei Konstruktoren mit dem gleichen Namen. Der "alte" Konstruktor hat nun aber eine Funktionalität, die erhalten bleiben muss. Daher besteht die Möglichkeit, mit Hilfe eines vorangestellten "inherited" den alten Konstruktor aufzurufen, der dann z.B. nötige Speicherbelegungen durchführt. Anschließend können die eigenen Erweiterungen angefügt werden. Diese Reihenfolge muss eingehalten werden. So würde ein Zugriff auf ein Datenfeld "Wuerfel1" eines noch nicht existierenden Objekts natürlich zu einem Fehler führen.


  constructor TSpiel.Create;
  begin
    inherited Create; // inherited;  hat gleiche Wirkung
    Wuerfel1 := TWuerfel.Create;
    Wuerfel2 := TWuerfel.Create;
  end;

Bei der Freigabe des Speichers muss die umgekehrte Reihenfolge eingehalten werden. Zuerst wird der Speicher der Tochter-Objekte, dann der eigene Speicher freigegeben.


  destructor TSpiel.Destroy;
  begin
    Wuerfel1.Free;
    Wuerfel2.Free;
    inherited Destroy;
  end;

Ein kleines Test-Projekt führt das Gesagte aus.

Download