Smart pascal source code


procedure Test(const a: array of const);
var i: Integer;
begin
  WriteLn('Length = ' + IntToStr(Length(a)));
  for i := Low(a) to High(a) Do
    WriteLn(a[i]);
end;

Test([4, 5, 6]);
Test([1, 'one', true, 1.1]);
Test([]);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
Length = 3
4
5
6
Length = 4
1
one
True
1.1
Length = 0

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

function $DIdxR(a,i,z) {
	if (i<0) throw Exception.Create($New(Exception),"Lower bound exceeded! Index "+i.toString()+z);
	if (i>a.length) throw Exception.Create($New(Exception),"Upper bound exceeded! Index "+i.toString()+z);
	return a[i];
}

function Test(a) {
   var i = 0;
   WriteLn(("Length = "+(a.length).toString()));
   var $temp1;
   for(i=0,$temp1=a.length;i<$temp1;i++) {
      WriteLn($DIdxR(a,i,""));
   }
};

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

   Test([4, 5, 6]);
   Test([1, "one", true, 1.1]);
   Test([]);