I am trying to get MethodName, but I get always empty string ...
TParseSymbolProcedure = procedure(symbol: TSymbol) of object;
TParser = class
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
0 · ·