[fpc-pascal] class of a class function

[CA Gorski]

How can I get the actual class a class function is called in?


TSomething = class
     class function GetMyClass: TClass;
end;

TOtherthing = class(TSomething)
end;

...

class function TSomething.GetMyClass: TClass;
begin
     Result:=???;
end;

...

var
     MyVar: TClass;


MyVar:=TOtherthing.GetMyClass; // MyVar should be set to TOtherthing