如何使用自定义的接口 我在使用自定义接口时,定义好了接口,也实现了接口,可是不知道如何调用已实现的接口,请高手帮忙 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 定义: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; 对 intfMyMsg := TMyMessage.Create;//增加引用记数 ShowMessage(intfMyMsg.ReturnMsg); intfMyMsg := nil;//减少引用记数,为0时释放对象 如何给NOT NULL 字段赋一个空值 如何利用动态连接库(dll)进行读写.ini文件的操作 控件中有procedure定义但找不到方法的内容是怎么回事啊?dispid关键词起什么作用? 一个存储过程游标的问题 treeview中,怎样删除一个选中的节点? 界面设计 关于远程监控的软件的问题!UP者有分 ^*^ 三层结构如何调试? 如何在程序中让连上局域网的机子自动关机 ?? 如何在在TMemo控件中设置为透明背景 请教........................ 在c/s结构中有没有什么方法不用装client就可以连上server?
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;
intfMyMsg := TMyMessage.Create;//增加引用记数
ShowMessage(intfMyMsg.ReturnMsg);
intfMyMsg := nil;//减少引用记数,为0时释放对象