CDE

Task/Exceptions/DWScript/exceptions-1.dwscript

@@ -0,0 +1,4 @@
+procedure Test;
+begin
+   raise Exception.Create('Sample Exception');
+end;

Task/Exceptions/DWScript/exceptions-2.dwscript

@@ -0,0 +1,11 @@
+procedure Test2;
+begin
+   try
+     test;
+   except
+      on E: Exception do begin  // Filter by exception class
+         PrintLn(E.Message);    // Showing exception message
+         raise;                 // Rethrowing
+      end;
+  end;
+end;

Task/Exceptions/DWScript/exceptions-3.dwscript

@@ -0,0 +1,8 @@
+procedure Test3;
+begin
+   try
+      test2;
+   finally
+      PrintLn('Test3 finally');
+   end;
+end;