How to get MethodName - Programmers Heaven

Howdy, Stranger!

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

Categories

How to get MethodName

Lemma78Lemma78 Posts: 1Member
I am trying to get MethodName, but I get always empty string ...

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

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

...
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.