ModelMaker: Implementierung von Interface als Property

[barnti]

Hallo,
mein Vorhaben: Ich habe ein Interface 'IDatabase' und eine Klasse 'TDatabase' die die Methoden des Interfaces nicht direkt implementieren, sondern als Property an eine weitere Klasse delegieren soll.
Wie kann ich das in Modelmaker realisieren?

[sakura]

Sei mal so gut und zeige mir ein paar SourceCode Zeilen, damit ich genau weiß was am Ende rauskommen soll ;)

...:cat:...

[barnti]

Hallo Sakura!

da:

Delphi-Quellcode:

unit akDatabase;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs;

type
  TakDatabase = class (TmysqlDatabase, IDatabase)
  private
    FQuery: TakQuery;
    function GetQuery: TakQuery;
  public                                                // so etwas ist vorgesehen  
    property Query: TakQuery read GetQuery stored False implements TakQuery;
  end;

Damit soll die Implementierung des Interface nicht in dieser Klasse, sondern in der durch die Property delegierten geschehen.

[sakura]

Welche ModelMaker Version hast Du eigentlich?

In MM 7.2x kannst Du einfach eine neue Property in der Members-View Anlagen. Im Eigenschaften-Dialog (STRG+E) findest Du auf der zweiten Seite eine Möglichkeit das Interface zu implementieren.

...:cat:...

[barnti]

Hi,
ich bin im Besitz der Version 6.
Auch da geht es, wie von dir beschrieben. Danke!