以便：
procedure TMyObject.SomeMethod(); begin Writeln('my name is: ' + <hocus pocus>); end;
将产生此输出：
我的名字是：SomeMethod
JclDebug.pas
function FileByLevel(const Level: Integer = 0): string; function ModuleByLevel(const Level: Integer = 0): string; function ProcByLevel(const Level: Integer = 0): string; function LineByLevel(const Level: Integer = 0): Integer;
