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

CA Gorski wrote on Tue, 07 Aug 2012:

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

Via "self".

Jonas

I tried that already, but at least in my case Self is Nil inside the class function.
Compiler (fpc 2.6.1 ) bug?

CA Gorski wrote on Tue, 07 Aug 2012:

I tried that already, but at least in my case Self is Nil inside the class function. Compiler (fpc 2.6.1 ) bug?

It does not return nil for me:

***
{$mode objfpc}
type
   TSomething = class
     class function GetMyClass: TClass;
   end;
class function TSomething.GetMyClass: TClass;
begin
   Result:=self;
end;
begin
   writeln(ptrint(TSomething.GetMyClass));
end.
***

Jonas

Yes, you are right.
Due to the problem that I couldn't store a class function in a var of type function of object (I reported earlier) I found a workaround:

var
     MyVar: function: boolean of object;
...
     (nil).MyClassFunc;

and that's why Self is nil. But I can do

     (TSomeClass).MyClassFunc;

which solves all problems (so far). :)