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

Question

此代码不允许：

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

[dcc32 错误] OtlParallel.pas(5040): E2003 Undeclared identifier: 'self'

该变体也是不允许的：

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的ClassInfo类方法：

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

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

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

对于您在 cmets 中讨论的类变量也是如此。只有一个类 var 的实例。您期待并希望每个派生类都有新的实例。

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