IDevLabel = interface(IDispatch)
['{64AE44EB-2761-49F3-8BF4-7F4E87E88E1A}']
function Get_LabelLayerManager: DevLayerManager; safecall;
procedure Set_LabelLayerManager(const value: DevLayerManager);safecall;
function Get_Text: WideString; safecall;
procedure Set_Text(const value: WideString); safecall;
function Get_LabelOffsetX: Integer; safecall;
procedure Set_LabelOffsetX(value: Integer); safecall;
function Get_LabelOffsetY: Integer; safecall;
.........象这种定义中的interface关键字是用来干吗的,表示什么;这里的safecall也是粗体显示
IDevLayerManagerDisp = dispinterface //这里disinterface是关键字,是不是和上面的interface相对应,是相反的一种定义?
['{BC8EC2B5-03D0-46DF-931D-1223606E4018}']
procedure Add(const DevLayer: IDevLayer); dispid 1;
property Count: Integer readonly dispid 2;
property Items[ind: Integer]: IDevLayer readonly dispid 3;
procedure Delete(ind: Integer); dispid 4;
procedure Clear; dispid 5;
property Map: _DMap dispid 7;
function GetIndex(csRigType: Integer): Integer; dispid 9;
procedure Free; dispid 6;
function GetRigType(ind: Integer): Integer; dispid 8;
end;
还有象下面这种interface定义里经常有什么read,write关键字又是什么意思???
property Text1: WideString read Get_Text1 write Set_Text1;
property Text2: WideString read Get_Text2 write Set_Text2;
property Text3: WideString read Get_Text3 write Set_Text3;
拿别人的代码来研究真是苦死我了,都看不懂,大家如果有这方面的资料也请告诉我!谢谢!
['{64AE44EB-2761-49F3-8BF4-7F4E87E88E1A}']
function Get_LabelLayerManager: DevLayerManager; safecall;
procedure Set_LabelLayerManager(const value: DevLayerManager);safecall;
function Get_Text: WideString; safecall;
procedure Set_Text(const value: WideString); safecall;
function Get_LabelOffsetX: Integer; safecall;
procedure Set_LabelOffsetX(value: Integer); safecall;
function Get_LabelOffsetY: Integer; safecall;
.........象这种定义中的interface关键字是用来干吗的,表示什么;这里的safecall也是粗体显示
IDevLayerManagerDisp = dispinterface //这里disinterface是关键字,是不是和上面的interface相对应,是相反的一种定义?
['{BC8EC2B5-03D0-46DF-931D-1223606E4018}']
procedure Add(const DevLayer: IDevLayer); dispid 1;
property Count: Integer readonly dispid 2;
property Items[ind: Integer]: IDevLayer readonly dispid 3;
procedure Delete(ind: Integer); dispid 4;
procedure Clear; dispid 5;
property Map: _DMap dispid 7;
function GetIndex(csRigType: Integer): Integer; dispid 9;
procedure Free; dispid 6;
function GetRigType(ind: Integer): Integer; dispid 8;
end;
还有象下面这种interface定义里经常有什么read,write关键字又是什么意思???
property Text1: WideString read Get_Text1 write Set_Text1;
property Text2: WideString read Get_Text2 write Set_Text2;
property Text3: WideString read Get_Text3 write Set_Text3;
拿别人的代码来研究真是苦死我了,都看不懂,大家如果有这方面的资料也请告诉我!谢谢!
解决方案 »
- HELP ADO连接EXCLE的问题 急死人了 。。。。。。。。。。。。。。解决了 马上给分 嫌少再加
- 文本内容中发现无效字符。
- 我的blog开张了,放分庆祝^_*
- 关于截取程序发出的数据
- 如何在delphi中调用word文档?
- DBGrid中,怎么样用鼠标右键选中!
- 送分问题,D6兼不兼容D5编的数据库程序?
- TADOQuery的onposterror事件什么时间响应?我在onposterror事件中写的代码为什么不执行?
- 难道这个问题就人能解??!!!
- 如何显示立方的单位cm³ ?
- 在dbgrid中为什么备注型(或text型字段)的那一列总显示为(memo),其他字段类型对应的列正常。
- 紧急求助:DXPageControl,DXEditor系列的控件哪里有的下载?
http://www.dreams.idv.tw/~code6421/Doc/Interface.htmlInterface Designing
http://www.dreams.idv.tw/~code6421/Doc/Interface2.htmlAdvanced Interface Volume 1 - Data Transfer Kit
http://www.dreams.idv.tw/~code6421/Doc/Interface3.htmlDTK 下载
http://www.dreams.idv.tw/~code6421/files/dtk.zip