Quellcode durchsuchen

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

Michalis Kamburelis vor 8 Monaten
Ursprung
Commit
4c8f718a8b
1 geänderte Dateien mit 3 neuen und 3 gelöschten Zeilen
  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);