Smart pascal source code


var a: array of String := ['hello'];

WriteLn(a[0]);
WriteLn(a[0][3]);
a[0][3] := 'z';
WriteLn(a[0]);
WriteLn(a[0][3]);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
hello
l
hezlo
z
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function $StrSetF(o,f,i,v,z) {
	o[f]=$StrSet(o[f],i,v,z);
}
function $StrSet(s,i,v,z) {
	if (i<1) throw Exception.Create($New(Exception),"Lower bound exceeded! Index "+i.toString()+z);
	if (i>s.length) throw Exception.Create($New(Exception),"Upper bound exceeded! Index "+i.toString()+z);
	return s.substring(0,i-1)+v+s.substring(i);
}
function $SIdx(s,i,z) {
	if (i<1) throw Exception.Create($New(Exception),"Lower bound exceeded! Index "+i.toString()+z);
	if (i>s.length) throw Exception.Create($New(Exception),"Upper bound exceeded! Index "+i.toString()+z);
	return s.charAt(i-1);
}
function $New(c) { var i={ClassType:c}; c.$Init(i); return i }
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 WriteLn(value) {
    if (window.console) { window.console.log(value); } };
var a = [];

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

   a = ["hello"].slice();
   WriteLn($DIdxR(a,0,""));
   WriteLn($SIdx($DIdxR(a,0,""),3,""));
   $StrSetF(a,0,3,"z","");
   WriteLn($DIdxR(a,0,""));
   WriteLn($SIdx($DIdxR(a,0,""),3,""));