diff --git a/packages/fcl-js/src/jsbase.pp b/packages/fcl-js/src/jsbase.pp index 2ed58539e3..ae3c8e4684 100644 --- a/packages/fcl-js/src/jsbase.pp +++ b/packages/fcl-js/src/jsbase.pp @@ -80,25 +80,33 @@ end; function TJSValue.GetAsNumber: TJSNumber; begin If (ValueType=jstNumber) then - Result:=FValue.F; + Result:=FValue.F + else + Result:=0.0; end; function TJSValue.GetAsObject: TObject; begin If (ValueType=jstObject) then - Result:=TObject(FValue.P); + Result:=TObject(FValue.P) + else + Result:=nil; end; function TJSValue.GetAsReference: TObject; begin If (ValueType=jstReference) then - Result:=TObject(FValue.P); + Result:=TObject(FValue.P) + else + Result:=nil; end; function TJSValue.GetAsString: TJSString; begin If (ValueType=jstString) then - Result:=String(FValue.P); + Result:=String(FValue.P) + else + Result:=''; end; function TJSValue.GetIsNull: Boolean;