接口委托实现

 1   TFMDesign = class(TFMBase, IDataSetOperator)

 2   public

 3     //注意名称要不一样,重新定义保存方法

 4     procedure IDataSetOperator.DoApplyUpdates = ApplyUpdates;

 5 

 6     //重写保存方法

 7     procedure ApplyUpdates; stdcall;

 8 

 9     //接口用对象

10     property __Service: TDataSetOperator read F__Service write F__Service

11         implements IDataSetOperator;

12   end;