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