15 lines
140 B
ObjectPascal
15 lines
140 B
ObjectPascal
|
procedure qqq;
|
||
|
|
begin
|
||
|
|
var st := new System.Diagnostics.StackTrace();
|
||
|
|
Print(st);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure ppp;
|
||
|
|
begin
|
||
|
|
qqq;
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
ppp
|
||
|
|
end.
|