ClassType函数的问题，帮我啊！！！！！！！！！！！！！！！！！！！(50分)

C

cjtmh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-11

• #1

function TObject.ClassType: TClass;
begin
Pointer(Result) := PPointer(Self)^;
end;
这段代码中，我有很多问题，像Pointer(Result)这段代码算不算是类型强制转换？如果算的话，能否有人给我讲讲Pointer(Result) := PPointer(Self)^;什么意思。
我的理解是：Result本身就是一个指针，却还要将它转换为Pointer类型为什么？还有PPointer是指向指针的指针，那么PPointer(Self)^我就更不懂了
希望大家讲讲，如果这个我弄懂了，以后看东西会容易一些。谢谢喽

 

晚

晚起的小虫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-11

• #2

PPointer(Self)^;
TObject.ClassType 是对象级别的方法，Self 的值是指向对象内存空间的指针，对象内存空间的前 4 个字节是类的 VMTptr。因此这个函数的返回值就是类的 VMTptr。
可以看下　http://blog.bcchinese.net/FreeWind/

 

C

cjtmh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-11

• #3

那么属不属于类型强制转换？

 

晚

晚起的小虫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-11

• #4

算。

 

C

cjtmh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-12

• #5

那么result是类引用，是否是Pointer(Result)转化为一个无类型指针，可以接受PPointer(Self)^的数据？