Topic: my solution to debug errors
This is my solution to help with debugging errors. If anyone can improve this idea or offer better alternatives, I would appreciate it.
procedure m(txt: variant; v: integer);
//*** minha solução para depurar...
begin
if v = 1 then
showmessage(vartostr(txt));
end;
Examples:
a = 1;
b = 'one';
displays message
m(a,1)
m(b,1)
or keep it in the code to display if necessary:
m(a,0);
m(b,0);