Smart pascal source code


const empty = '';

var str: String = empty;

WriteLn(Length(str));
SetLength(str, 1);
WriteLn(Length(str));
str[1] := 'z';
WriteLn(str);
str[1] := Chr($5A); // 'Z'
str := str + 'a';
str := 'o' + str;
WriteLn(str);

WriteLn('df' + '01' + str + '13' + '45' + str + empty + str);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
0
1
z
oZa
df01oZa1345oZaoZa

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

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 $New(c) { var i={ClassType:c}; c.$Init(i); return i }
function WriteLn(value) {
    if (window.console) { window.console.log(value); } };
var str = {v:""};

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

   str.v = "";
   WriteLn(str.v.length);
   SetLength(str,1);
   WriteLn(str.v.length);
   str.v = $StrSet(str.v,1,"z","");
   WriteLn(str.v);
   str.v = $StrSet(str.v,1,"Z","");
   str.v+="a";
   str.v = "o"+str.v;
   WriteLn(str.v);
   WriteLn(("df01"+str.v+"13"+"45"+str.v+""+str.v));