Question

不允许使用此代码：

class constructor TOmniMultiPipelineStage.Create;
var
  RTTIType: TRttiType;
begin
  RTTIType:= TRttiContext.GetType(self);
end;

[dcc32错误] OtlParallel.pas（5040）：E2003未声明的标识符：＆＃39; self＆＃39;

也不允许变体：

class constructor TOmniMultiPipelineStage.Create;
var
  RTTIType: TRttiType;
begin
  //Not really what I want because I want the actual type of the class
  //Not a fixed ancestor type 
  RTTIType:= TRttiContext.GetType(TOmniMultiPipelineStage);
end;

[dcc32 Error] OtlParallel.pas（5039）：E2076这种形式的方法调用仅允许类方法或构造函数

如何在类构造函数中获取类的RTTI信息？

自我注意：循环遍历类的所有后代：Delphi: At runtime find classes that descend from a given base class?

Answer 1

使用TObject的{{3}}类方法：

class constructor TMyClass.ClassCreate;
var
  ctx: TRttiContext;
  typ: TRttiType;
begin
  typ := ctx.GetType(ClassInfo);
end;

请注意，我还修改了对GetType的调用语法，这是一个实例方法，因此必须在TRttiContext的实例上调用。

对你来说更大的问题是类构造函数不会对你有用。类构造函数是静态的。它们仅针对定义它们的类型执行一次。正如您所期望的那样，它们不会在派生类的上下文中执行。

同样对于班级变量，你在评论中讨论。只有一个类var的单个实例。您期望并希望每个派生类都有新的实例。

因此，虽然ClassInfo回答了您提出的问题，但它对您没有任何实际用处。

如何在类构造函数中访问RTTI？

1 个答案: