Stack Overflow

[FAlter]

Hi,

der Code ist sehr eigenartig, hier einmal anders formatiert:

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;

Ich hoffe, jetzt wird die dein Fehler deutlich. Prim_re(n+1, n) wird IMMER aufgerufen, unabhängig davon, om n < limit.

Mfg
FAlter