Global data value refactoring + 1st scripting version

2025-09-20 18:30:32 +02:00
parent 09bd25b318
commit 00f5861148
17 changed files with 1430 additions and 2742 deletions
@@ -69,9 +69,8 @@ begin
        raise EArgumentException.CreateFmt('%s requires a scalar argument.', [AName]);

    AArg := AArgs[0].AsScalar;
-    if not (AArg.Kind in [skInteger, skInt64, skSingle, skDouble, skDecimal]) then
-        raise EArgumentException.CreateFmt('%s requires a numeric argument, but got %s.', [AName, AArg.Kind.ToString]);
-
+    // The check for specific numeric kinds is no longer necessary,
+    // as TScalar can only be Ordinal or Float.
    Result := True;
 end;