🚀 go-pugleaf

> 
> Program, który wkleiłeś nie zadziała jak opisałeś, sprawdź.
> 
> -- 
> pozdrawiam
> Roman Tyczka

Dziekuję za zainteresowanie moim pomysłem.
Być może Twoje oczekiwania są inne, a być może patrzę i czegoś nie widzę (tę wersję upraszczałem korzystając z Notatnika)

Na wszelki wypadek wklejam jednak wersję skopiowaną wprost z edytora Delphi. Jest ona minimalnie bogatsza, a mianowicie w proc. sub0 jest instrukcja
 if n=0 then callChain:=callChain+'>sub0';
zamiast poprzedniej
 callChain:=callChain+'>sub0';
Warunek if n=0 zapobiega powtarzaniu się nazwy '>sub0' w wołaniach rekurencyjnych aby skrócić łańcuch odnotowujący te wołania w sytuacji, gdy mamy licznik takich wołań. Zamieszczam tu pełne treści obu modułów składających się na program testowy.
W efekcie np. wykonania 1. kroku otrzymasz komunikat:

Error occured in call chain ">TForm1.Button1Click>sub0>sub1>sub2". Iteration step=0. Recursion step=0

czyli informację, że błąd powstał w procedurze sub2 wołanej z procedury sub1, która była wołana z procedury sub0, a ta z kolei ze zdarzenia OnClick  przycisku button1. 

Pozdrawiam,
apl

unit Unit1;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
uses unit2;
procedure TForm1.Button1Click(Sender: TObject);
begin
 sub0('>TForm1.Button1Click',0);
end;

end.


unit Unit2;

interface
 procedure sub0(callChain:string;n:word);
implementation
 uses dialogs,SysUtils;

 procedure sub2(callChain:string;i,n:word);
  var   r:real;
 begin
  callChain:=callChain+'>sub2';
  r:=0;
   try      //enclosure of a critical fragment
   r:=r/r;
   except
    showMessage('Error occured in call chain "'+callChain+'". Iteration step='+intToStr(i)+'. Recursion step='+intToStr(n))
   end;
 end;{sub2}

 procedure sub1(callChain:string;i,n:word);
 begin
  callChain:=callChain+'>sub1';
  sub2(callChain,i,n);
 end;{sub1}

procedure sub0(callChain:string;n:word);
 var   i:shortInt;
 begin
  if n=0 then callChain:=callChain+'>sub0';
  for i:=0 to 5 do sub1(callChain,i,n);
  if n<3 then sub0(callChain,n+1);  //recursion
 end;{sub0}
end.