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;