CDE

2013-04-10 16:57:12 -07:00 · 2013-04-10 16:57:12 -07:00 · 764da6cbbb
commit 764da6cbbb
parent 518da4a923
6144 changed files with 83610 additions and 11 deletions
--- a/Task/Detect-division-by-zero/Delphi/detect-division-by-zero.delphi
+++ b/Task/Detect-division-by-zero/Delphi/detect-division-by-zero.delphi
@ -0,0 +1,18 @@
+program DivideByZero;
+
+{$APPTYPE CONSOLE}
+
+uses SysUtils;
+
+var
+  a, b: Integer;
+begin
+  a := 1;
+  b := 0;
+  try
+    WriteLn(a / b);
+  except
+    on e: EZeroDivide do
+      Writeln(e.Message);
+  end;
+end.