Freigabe von Objekten in Objekten

[Ginko]

Danke für die ausfürliche Erklärung aber das klappt leider auch nicht, obwohl es natürlich ein Fehler war das Objekt zwei mal mit dem selben Namen zu erzeugen


Hier die Verbesserung, die auch nicht funktioniert, der Rest wie oben:

Delphi-Quellcode:

unit Unit2;

interface

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

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


implementation


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

destructor TObjektMit2Objekten.destroy;
begin
  Objekt1a.free;
  Objekt1b.free;
  Inherited destroy;
end;


end.