Find limit of recursion: Difference between revisions

Content added Content deleted

Inline

@@ Line 348: / Line 348: @@
 ----
 =={{header|Delphi}}==
-{{works with|Delphi|5.0}}
+{{works with|Delphi|2010 (and probably all other versions)}}
 <lang delphi>program Project2;
 {$APPTYPE CONSOLE}
 uses
   SysUtils;
-function Recursive(Level : integer) : integer;
+function Recursive(Level : Integer) : Integer;
 begin
   try
     Level := Level + 1;
-    Recursive(Level);
+    Result := Recursive(Level);
-  except on e: Exception do
+  except
-    Result := Level;
+    on E: EStackOverflow do
+      Result := Level;
   end;
 end;
-var
-  GetInput : integer;
 begin
-  Writeln('Recursion Level is ' + inttostr(Recursive(0)));
+  Writeln('Recursion Level is ' + IntToStr(Recursive(0)));
+  Writeln('Press any key to Exit');
-  Readln(GetInput);
+  Readln;
 end.</lang>
 Output:
-<pre>Recursion Level is 4233548</pre>
+<pre>Recursion Level is 28781</pre>
 =={{header|E}}==