1,593
社区成员
发帖
与我相关
我的任务
分享一个关于Pascal语法的初级问题！
Corba单元中的第702行（TCORBAObject对象中的Execute方法），如下，
TMethod(M).Code := Self.MethodAddress('_' + Operation);
请问“TMethod(M)”是什么意思？是强制类型转换吗？好像类型所占的内存大小不一致啊？
“TMethod”的定义如下，
TMethod = record
Code, Data: Pointer;
end;
“M”定义如下
type
TUnmarshalProc = procedure (const Input: InputStream; Cookie: Pointer) of object;
var
M: TUnmarshalProc;
TMethod(M).Code := Self.MethodAddress('_' + Operation);
请问“TMethod(M)”是什么意思？是强制类型转换吗？好像类型所占的内存大小不一致啊？
“TMethod”的定义如下，
TMethod = record
Code, Data: Pointer;
end;
“M”定义如下
type
TUnmarshalProc = procedure (const Input: InputStream; Cookie: Pointer) of object;
var
M: TUnmarshalProc;
...全文
请发表友善的回复…
发表回复
angelface 2004-08-02
- 打赏
- 举报
确实是强制类型转换
viaboy 2004-08-02
- 打赏
- 举报
同意楼上。
tsst 2004-08-02
- 打赏
- 举报
TMethod(M).Code := Self.MethodAddress('_' + Operation);
这个不是强制类型转换 而是要得到地址！
TMethod(M)”得到了M的代码和数据段的指针！
这个不是强制类型转换 而是要得到地址！
TMethod(M)”得到了M的代码和数据段的指针！
htyx 2004-08-02
- 打赏
- 举报
应该说是，用强制类型转换的方法取出，代码段和数据段的指针（因为procedure类型就是一个拥有两个指针对象的结构体，这两个指针分别指向代码段和数据段：猜的）。而TMethod(M).Code := Self.MethodAddress('_' + Operation);这一句就是在重新定向代码段。
xufenglong 2004-08-02
- 打赏
- 举报
学习，顶！
ttoomm 2004-08-02
- 打赏
- 举报
我顶
