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.