Zitat von
axelf98:
Beim ersten Durchblick ist mir aufgefallen, dass beide Funktionen die gleiche Abfrage haben...
Dann springt er bei Nichterfüllung einer Abfrage zur nächsten, bis ein Stack-Überlauf kommt!
Delphi-Quellcode:
function TForm1.odd(x: integer): boolean;
begin
if (x mod 2 = 0) then
....
end;
function TForm1.even(x: integer): boolean;
begin
if (x mod 2 = 0) then
begin
....
end;
hierbei ist bei mir kein stack überlauf, lediglich wenn ich eben die if-abfrage ändere (zb in x mod 2 <>0),....ohne ändern kommt das mit zb 42 statt 43 ungerade heraus.