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]