Freigabe von Objekten in Objekten

[DeddyH]

Im Sinne der OOP wäre eine bessere Kapselung "schöner". Dasselbe dann auch in der anderen Unit, wobei ich mir denken könnte, dass der Fehler dann weg ist, da IIRC private Referenzfelder automatisch mit nil initialisiert werden.

Delphi-Quellcode:

unit Unit2;

interface

uses
  Classes, SysUtils, Variants, Math, Grids, Forms,  Dialogs, Controls,
  StdCtrls, Windows, Messages, Graphics, Unit3;

type
  TObjektMit2Objekten = class
  private
    FObjekt1a: TObjekt1;
    FObjekt1b: TObjekt1;
  public
    constructor Create(ZuBenutzendesFormular : TWinControl);
    destructor Destroy;  override;
    property Objekt1a : TObjekt1 read FObjekt1a;
    property Objekt1b : TObjekt1 read FObjekt1b;
  end;


implementation


constructor TObjektMit2Objekten.Create(ZuBenutzendesFormular : TWinControl);
begin
  inherited Create;
  FObjekt1a := TObjekt1.Create(ZuBenutzendesFormular,1);
  FObjekt1b := TObjekt1.Create(ZuBenutzendesFormular,2);
end;

destructor TObjektMit2Objekten.destroy;
begin
  FObjekt1a.free;
  FObjekt1b.free;
  Inherited destroy;
end;


end.