我在使用自定义接口时,定义好了接口,也实现了接口,可是不知道如何调用已实现的接口,请高手帮忙

解决方案 »

  1.   

    定义:
    type
      IMyMessage = interface(IUnknown)
        function ReturnMsg: string;
      end;  TMyMessage = class(TInterfacedObject, IMyMessage)
      protected
        function ReturnMsg: string;
      end;使用:
    var
      intfMyMsg: IMyMessage;begin
      intfMyMsg := TMyMessage.Create;
      ShowMessage(intfMyMsg.ReturnMsg);
      intfMyMsg := nil;
    end;
      

  2.   


      intfMyMsg := TMyMessage.Create;//增加引用记数
      ShowMessage(intfMyMsg.ReturnMsg);
      intfMyMsg := nil;//减少引用记数,为0时释放对象