Smart pascal source code


type
  TTest = class
    Field: Integer;
    procedure IncDec;
    procedure IncDecN(n: Integer);
  end;

procedure TTest.IncDec;
begin
  Inc(Field);
  WriteLn(Field);
  Dec(Field);
  WriteLn(Field);
end;

procedure TTest.IncDecN(n: Integer);
begin
  Inc(Field, n);
  WriteLn(Field);
  Dec(Field, n);
  WriteLn(Field);
end;

TTest.Create.IncDec;
TTest.Create.IncDecN(2);

var t := new TTest;

  Inc(t.Field);
  WriteLn(t.Field);
  t.IncDec;
  Dec(t.Field);
  WriteLn(t.Field);

  Inc(t.Field, 2);
  WriteLn(t.Field);
  t.IncDecN(3);
  Dec(t.Field, 1);
  WriteLn(t.Field);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
1
0
2
0
1
2
1
0
2
5
2
1
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var TTest = {
   $ClassName:"TTest",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.Field = 0;
   }
   ,IncDec:function(Self) {
      ++$Check(Self,"").Field;
      WriteLn($Check(Self,"").Field);
      --$Check(Self,"").Field;
      WriteLn($Check(Self,"").Field);
   }
   ,IncDecN:function(Self, n) {
      ($Check(Self,"").Field+= n);
      WriteLn($Check(Self,"").Field);
      ($Check(Self,"").Field-= n);
      WriteLn($Check(Self,"").Field);
   }
   ,Destroy:TObject.Destroy
};
var t = null;

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

   TTest.IncDec(TObject.Create($New(TTest)));
   TTest.IncDecN(TObject.Create($New(TTest)),2);
   t = TObject.Create($New(TTest));
   ++$Check(t,"").Field;
   WriteLn($Check(t,"").Field);
   TTest.IncDec(t);
   --$Check(t,"").Field;
   WriteLn($Check(t,"").Field);
   ($Check(t,"").Field+= 2);
   WriteLn($Check(t,"").Field);
   TTest.IncDecN(t,3);
   --$Check(t,"").Field;
   WriteLn($Check(t,"").Field);