接口委托实现

 

 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;