record booleans

Smart pascal source code


type
  TRec = record
    a: Boolean;
    b: TObject;
  end;

var r: TRec;

WriteLn(r.a);

r.a := True;
r.b := new TObject;

WriteLn(r.a);
WriteLn(r.b.ClassName);

r.a := not r.a;

WriteLn(r.a);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
False
True
TObject
False
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function Copy$TRec(s,d) {
   d.a=s.a;
   d.b=s.b;
   return d;
}
function Clone$TRec($) {
   return {
      a:$.a,
      b:$.b
   }
}
var r = {a:false,b:null};

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

   WriteLn(r.a);
   r.a = true;
   r.b = TObject.Create($New(TObject));
   WriteLn(r.a);
   WriteLn(ClassName$1($ToClassType(r.b)));
   r.a = !r.a;
   WriteLn(r.a);