So sollte es auch funktionieren.
Die Klasse A ist dann der
Aggregator(Seite 4) der Klasse B.
Delphi-Quellcode:
TKlasseA = class(TObject)
EineBeziehung: TKlasseB;
TKlasseB = class(TObject)
...
constructor TKlasseA.create;
begin
...
eineBeziehung := TKlasseB.create;
end;
procedure Test;
begin
InstanzA := TKlasseA.Create;
end;
Grüße
Klaus