Einzelnen Beitrag anzeigen

Benutzerbild von 3_of_8
3_of_8

Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
 
Turbo Delphi für Win32
 
#5

Re: Implementierung eines Interfaces

  Alt 18. Jun 2006, 16:33
['{F7509748-217A-42EB-B6FB-A45C25310F8A}']

Was ist das? Hat das was mit Serialisierung zu tun? Also mein Code ist bisher so:

Delphi-Quellcode:
type
  IMap=interface
    function Get(Key: Variant): TObject;
    procedure Put(Key: Variant; Data: TObject);
    procedure Insert(Key: Variant; Data: TObject);
    procedure Delete(Key: Variant);
    property Data[Key: Variant]: TObject read Get write Put; default;
  end;

  TTreeMap = class(TObject, IMap)
  protected
    FRoot: TTreeMapNode;
  public
    function Get(Key: Variant): TObject;
    procedure Put(Key: Variant; Data: TObject);
    procedure Insert(Key: Variant; Data: TObject);
    procedure Delete(Key: Variant);
    property Data[Key: Variant]: TObject read Get write Put; default;
  end;
EDIT: OK, hab jetzt rausgefunden, wie ichs machen kann. Einfach nicht von TObject ableiten sondern von TInterfacedObject. Danke.
Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
  Mit Zitat antworten Zitat