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
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
