Ver código fonte

Fix TJSArray._GetStrings: exit once you get correct value, do not fall through to raising error

Michalis Kamburelis 8 meses atrás
pai
commit
4c8f718a8b
1 arquivos alterados com 3 adições e 3 exclusões
  1. 3 3
      packages/wasm-job/src/job.js.pas

+ 3 - 3
packages/wasm-job/src/job.js.pas

@@ -2797,14 +2797,14 @@ begin
     else
       begin
       Str(TJOB_Double(V).Value,S);
-      Result:=S;
+      Exit(S);
       end;
     if V is TJOB_String then
-      Result:=TJOB_STRING(V).Value;
+      Exit(TJOB_STRING(V).Value);
   finally
     V.Free;
   end;
-  Raise EConvertError.CreateFmt('Element %d is not a valid integer value',[Index]);
+  Raise EConvertError.CreateFmt('Element %d is not a valid string value',[Index]);
 end;
 
 procedure TJSArray._SetBooleans(Index: NativeInt; aValue: Boolean);