@@ -4345,15 +4345,22 @@ End Rem
Local parser:TParser=New TParser.Create( toker,Null )
- Local expr:TExpr=parser.ParseExpr()
-
- expr=expr.Semant()
- If ty expr=expr.Cast( ty )
- Local val$=expr.Eval()
+ Local val:String
+ Try
+ Local expr:TExpr=parser.ParseExpr()
+
+ expr=expr.Semant()
+ If ty expr=expr.Cast( ty )
+ val=expr.Eval()
+ Catch error:String
+ val = "0"
+ End Try
PopEnv
+ PopPPEnv
Return val
End Function