[solved] how to get class and method name from inside the method

[Joanna from IRC]

hello i want to get information about where in program an error occurs for instance

Code: Pascal  [Select][+][-]

1. PROCEDURE TWINCONTROL_HELPER.CREATE_THIS_CONTROL(CONST TYPE_TO_CREATE:TGUI_CONTROL_CLASS;
2.             VAR THIS_CONTROL: TCONTROL; CONST THE_NAME: SHORTSTRING);
3. BEGIN
4. IF (THIS_CONTROL <> NIL) OR (TYPE_TO_CREATE = TCONTROL)
5.    THEN begin
6.         ShowMessage('error in -> '+'PROCEDURE TWINCONTROL_HELPER.CREATE_THIS_CONTROL');
7.         EXIT;
8.         END;
9.  END;

is there any way to get the "PROCEDURE TWINCONTROL_HELPER.CREATE_THIS_CONTROL" string by some other means so i can sent it to an external error showing procedure such as

PROCEDURE SHOW_ERROR (CONST ERROR_MESSAGE);
BEGIN
showmessage(error_message);
halt;
END;

[BlueIcaro]

Hello,  you can use {$I %CURRENTROUTINE%}, more info: https://www.freepascal.org/docs-html/prog/progsu41.html#x48-470001.2.41

Here there is a example: https://forum.lazarus.freepascal.org/index.php?topic=49837.0

/BlueIcaro

[Joanna from IRC]

Thanks blueicaro
That works great once I add classname +’.’

I also wonder if there is a way to get a pointer to procedure I’m in and then send the pointer to another error message procedure which would be able to extract procedure name and make error message

[cdbc]

Hi
Try playing with:

Code: Pascal  [Select][+][-]

1. lptr:= MethodAddress(Classname+’.’+{$I %CURRENTROUTINE%});
2.  

Note: When you have this pointer, you can also use 'MethodName();' with it...
edit: I dunno if the 'ClassName'-part is necessary   
Regards Benny

[Joanna from IRC]

Thanks cdbc. It seems like autocomplete doesn’t work well inside a twincontrol helper  but it compiles ok.

[jamie]

maybe this can give you some ideas of storing method pointers somewhere too!

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. begin
3.   caption :=TForm1.MethodName(TMethod(Button1.OnClick).Code);
4. end;              
5.  
6.  

 with that, you could test the address in the event to see what method it is going to.

 in this case, it goes to itself! 

[Joanna from IRC]

What does the .code part do?

[Thaddy]

That is the pointer/entry of the code to be executed. The .data part gives the data with which that code should be executed.

[Joanna from IRC]

Interesting,