Danke für den Hinweis.
Allerdings finde ich an der Stelle keine rekursive Prouedur.
Delphi-Quellcode:
procedure eingabe;
var i:integer;
begin
If zahler1 = 0
Then
begin
Form2.Label1.caption:='';
Form2.Label3.caption:='';
Form2.edit2.show;
a:= strToInt(Form2.Edit1.Text);
n:= 1;
For i:=1 to a Do
begin
n:= n*a;
end;
setLength(El,a);
setLength(Mo,n);
setLength(Re,n,a);
setLength(Vo,a);
Form2.Edit1.Text:='';
end;
end;
Auserdem müste es, bei einer rekursiven entlosschleife doch schon deim ersten Programmdurchlauf zu einem Fehler kommen, oder?