string record field get set

Smart pascal source code


type
  TTest = record
    F: String := 'hello';
  end;

var o: TTest;

WriteLn(o.F);
WriteLn(o.F[3]);
o.F[3] := 'z';
WriteLn(o.F);
WriteLn(o.F[3]);

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

function Copy$TTest(s,d) {
   d.F=s.F;
   return d;
}
function Clone$TTest($) {
   return {
      F:$.F
   }
}
var o = {F:"hello"};

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

   WriteLn(o.F);
   WriteLn($SIdx(o.F,3,""));
   $StrSetF(o,"F",3,"z","");
   WriteLn(o.F);
   WriteLn($SIdx(o.F,3,""));