interface und variable des implementierenden objekts

[Bjoerk]

Hallo Sebastian, müssen es unbedingt interfaces sein? Falls nein, dann eventuell so:

Delphi-Quellcode:

type
  TContainer = class(TObject)
  protected
    DataModule: IDataModule;
    ..
    Class1: TClass1;
    Class2: TClass2;
    ..
    procedure InstallLink(..
    procedure RemoveLink(..
    procedure DataChanging(..
    ..
    constructor Create;
    destructor Destroy; override;
  end;

  TClass = class(TContainer)
    ..
    constructor Create;
    destructor Destroy; override;
  end;