Delphi在类过程中使用反射来获取动态类类型

Question

我想在类过程/函数（静态方法）中使用当前类的反射。如果不使用“Self”关键字，该怎么办？并且没有对类名进行编码：这个过程应该在后代中重写。

class procedure AAA.SetTableAndSequence;
var
c : TRttiContext;
t : TRttiType;
begin
  c := TRttiContext.Create;
  try
    t := c.GetType(Self.ClassType);
    ...
  finally
   c.Free;
  end;
end;

Answer 1

您可以使用ClassInfo和GetType：

class procedure AAA.SetTableAndSequence;
var
  c: TRttiContext;
  t: TRttiType;
begin
  t := c.GetType(ClassInfo);
  ...
end;