Smart pascal source code


var i1 := 1;
var i2 := 2;

WriteLn(i1);
WriteLn(i2);
Swap(i1, i2);
WriteLn(i1);
WriteLn(i2);

type
  TTest = class
  end;

var o1 := TObject.Create;
var o2: TObject = TTest.Create;

WriteLn(o1.ClassName);
WriteLn(o2.ClassName);
Swap(o1, o2);
WriteLn(o1.ClassName);
WriteLn(o2.ClassName);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
12
21
TObject
TTest
TTest
TObject
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var TTest = {
   $ClassName:"TTest",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   ,Destroy:TObject.Destroy
};
var i1 = 0,
   i2 = 0,
   o1 = null,
   o2 = null;

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

   i1 = 1;
   i2 = 2;
   WriteLn(i1);
   WriteLn(i2);
   var $temp1 = i1; i1 = i2; i2 = $temp1;
   WriteLn(i1);
   WriteLn(i2);
   o1 = TObject.Create($New(TObject));
   o2 = TObject.Create($New(TTest));
   WriteLn(ClassName$1($ToClassType(o1)));
   WriteLn(ClassName$1($ToClassType(o2)));
   var $temp2 = o1; o1 = o2; o2 = $temp2;
   WriteLn(ClassName$1($ToClassType(o1)));
   WriteLn(ClassName$1($ToClassType(o2)));