Smart pascal source code


type
  TMy = class
  end;

type
  TMyRecord = record
    c1: TClass;
    c2: class of TMy;
  end;

var r: TMyRecord;

if Assigned(r.c1) then
  WriteLn('bug1');
if r.c2 <> nil then
  WriteLn('bug2');

r.c1 := TObject;
r.c2 := TMy;

var r2 := r;

WriteLn(r2.c1.ClassName);
WriteLn(r2.c2.ClassName);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
TObject
TMy

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

function Copy$TMyRecord(s,d) {
   d.c1=s.c1;
   d.c2=s.c2;
   return d;
}
function Clone$TMyRecord($) {
   return {
      c1:$.c1,
      c2:$.c2
   }
}
var TMy = {
   $ClassName:"TMy",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   ,Destroy:TObject.Destroy
};
var r = {c1:null,c2:null};
var r2 = {c1:null,c2:null};

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

   if (r.c1) {
      WriteLn("bug1");
   }
   if (r.c2) {
      WriteLn("bug2");
   }
   r.c1 = TObject;
   r.c2 = TMy;
   Copy$TMyRecord(r,r2);
   WriteLn(ClassName$1(r2.c1));
   WriteLn(ClassName$1(r2.c2));