ModelMaker: Implementierung von Interface als Property

[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.