Modified try - except clause in PlayTime method

diff --git a/sakurasuite/SsPlayTime.pas b/sakurasuite/SsPlayTime.pas
index 755401b..5d9c705 100644 (file)
--- a/sakurasuite/SsPlayTime.pas
+++ b/sakurasuite/SsPlayTime.pas
@@ -313,18 +313,13 @@ begin
     raise TSsPlayTimeInitException.Create('SsParser is not set');
   if FPlayTimeParams = nil then
     raise TSsPlayTimeInitException.Create('PlayTimeParams is not set');
-  try
-    SsParser.InputString := Script;
-    CountElements;
-    with PlayTimeParams do
-      Result := CostConst + CostWait * FCounts.Wait + CostSurface * FCounts.Surface +
-        CostHiResWait * FCounts.HiResWait + CostChar * FCounts.Char +
-        CostDBChar * FCounts.DBChar + FCounts.Specials +
-        CostQuickChar * FCounts.QuickChar;
-  except
-    Result := 0;
-    raise;
-  end;
+  SsParser.InputString := Script;
+  CountElements;
+  with PlayTimeParams do
+    Result := CostConst + CostWait * FCounts.Wait + CostSurface * FCounts.Surface +
+      CostHiResWait * FCounts.HiResWait + CostChar * FCounts.Char +
+      CostDBChar * FCounts.DBChar + FCounts.Specials +
+      CostQuickChar * FCounts.QuickChar;
 end;
 
 procedure TSsPlayTime.SetPlayTimeParams(const Value: TSsPlayTimeParams);