delphi – 如何检查传递的参数是否为class？

发布时间：2020-12-15 09:38:30 所属栏目：大数据来源：网络整理

导读：我有功能(用Delphi 7,32位编写)： Function GetVMTAddr(var C): Integer;Begin Result := Integer(C); Try PVmt(Result)^.SelfPtr := PVmt(C)^.SelfPtr; Except Result := 0; End;End; 哪个返回VMT地址(我认为它是VMT,我不确定)并检查参数是否是一个对象(通

我有功能(用Delphi 7,32位编写)：

Function GetVMTAddr(var C): Integer;
Begin
  Result := Integer(C);
  Try
    PVmt(Result)^.SelfPtr := PVmt(C)^.SelfPtr;
  Except
    Result := 0;
  End;
End;

哪个返回VMT地址(我认为它是VMT,我不确定)并检查参数是否是一个对象(通过尝试…除外,这是非常糟糕的解决方案).
我有两个问题：
1)这真的是VMT地址还是我错了？
2)有没有更好的解决方案来检查参数是否为对象？

解决方法

如果传递给它的是类引用(a.k.a.是元类),则参数C将保存VMT地址.

您在该功能中检查的条件是无用的.它检查某个内存区域是否可写,这就是全部.如果您正在检查SelfPtr字段是否等于值本身,那么您就更接近了.像这样的东西：

if PVmt(C).SelfPtr = C then
  Result := C;

你问的问题非常类似于几年前在这里提出的一个问题,有人想知道how to detect the type of a variable.正如我之前所解释的那样,如果你已经达到了你认为需要使用这个代码的程度,你就是’已经陷入困境了.返回并更改您的设计,以便您可以知道您是否有类引用或对象引用而不必猜测.

如果你真的需要猜测,那么你可以尝试使用JCL,IsClass和IsObject提供的函数.他们做同样的猜测,你的代码试图使用,但他们做得对.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!