Delphi use reflection in a class procedure for the getting dynamic class type

Question

I want use reflection on the current class inside a class procedure/function (static method). How can I do without using the "Self" keyword? And without harcode the class name: this procedure should be override in the descendants.

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

Cankerous

FWIW, the try/finally is pointless here. TRttiContext is not a class. Just use c directly. It auto-initializes. – Trilley

Answer 1

You can use ClassInfo and GetType:

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

Ensue

What exactly is the value returned by ClassInfo? Is it the same thing that a TypeInfo would return? Oh and thanks for pointing out that my now deleted answer was bogus. – Trilley

Yes, the VMT contains a field to the TypeInfo of a class (vmtTypeInfo slot) which is returned by the ClassInfo class function. – Ensue