unterkategorie bei einer prozedur

[mkinzler]

Delphi-Quellcode:

type

   TAmo = class; //forward Deklaration;

  TSammlung = class
    Owner: TObject;
    procedure BlaBlaBla;
  end;

  TAmo = class
  public
    Sammlung: TSammlung;
    constructor Create;
  end;

...
var
   Amo: TAmo;
...
implementation
...
constructor TAmo.Create;
begin
    Sammlung := TSammlung.Create( self);
    ...
end;

constructor TSammlung.Create(AOwner: TObject);
begin
    Owner := AOwner;
end;

procedure TSammlung.BlaBlaBla;
begin
...