static to dynamic empty array

Smart pascal source code


procedure Test1(const AParams: Array Of Variant);
begin
  WriteLn(Length(AParams));
end;

Test1([]);

procedure Test2(const AParams: Array Of Integer);
begin
  WriteLn(Low(AParams));
  WriteLn(High(AParams));
end;

Test2([]);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
Errors >>>>
Hint: "test1" does not match case of declaration ("Test1") [line: 6, column: 1]
Hint: "test2" does not match case of declaration ("Test2") [line: 14, column: 1]
Result >>>>
0
0
-1

-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function Test2(AParams) {
   WriteLn(0);
   WriteLn((AParams.length-1));
};
function Test1(AParams$1) {
   WriteLn(AParams$1.length);
};

/* <<< main JS >>> */

   Test1(([]));
   Test2(([]));