How to get MethodName

I am trying to get MethodName, but I get always empty string ...

TParseSymbolProcedure = procedure(symbol: TSymbol) of object;
TParser = class
FParse: TParseSymbolProcedure;

procedure Parse_Set(symbol: TSymbol);
procedure Parse_SetVar(symbol: TSymbol);
procedure Parse_SetVarExpr(symbol: TSymbol);

FParse := Parse_Set;
now I need code like MethodName(FParse);
and the result would be 'ParseSet'
... is it possible? do I need to change TParser a log to make it work?

thx for answer
Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!