Stack Overflow

[NormanNG]

Hi,

ich formatier deinen Quelltext mal etwas um:

Delphi-Quellcode:

procedure TForm1.Prim_re(n,i:integer);
begin
  if (n < limit) then 
  begin
    if (i<=1) then 
      List2.Items.Add(IntToStr(n))
    else
      if (n mod i) <> 0 then 
        Prim_re(n,i-1);
  end;
  Prim_re(n+1,n);
end;

Jetzt siehtst du vielleicht, dass das mit der Abbruchbedingung noch nicht so ganz stimmt:
Egal, mit welchem N/I die Prozedur aufgerufen wird, sie sich ruft zuletzt immer wieder selbst auf.
Also nichts mit "Abbruch" ...

[edit]Upps, roter Kasten?[/edit]