Umgang mit Interfaces

[Sir Rufo]

Oder sogar doppelt ... falls die Basis-Instanz als Klasse benötigt wird

Delphi-Quellcode:

TListData = class
private
  fAsIntf : IInterface;
  fAsObj: TMyClasses;
  fName: String;
  fHash: Cardinal;
public
  property AsIntf : IInterface read fAsIntf;
  property AsObj : TMyClasses;
  property Name : string read fName;
  property Hash : Cardinal read fHash;
End;

Und beim Destroy von TListData einfach mal nicht die Objekt-Instanz befreien