非COM环境下的接口编程--问题，技巧，应用（二）[2]

ifoo = interface

  //我们要维护的对象，只实现了一个简单的加法运算做为例子

  ['{22c541aa-0ba4-4092-b0eb-d267ab1ff001}']

  function fooadd(x,y:integer):integer;

end;

tfoo的声明和实现：

tfoo = class(tmyinterfacedobject,ifoo)

  protected

   function fooadd(x,y:integer):integer;

end;