Smart pascal source code


type
  TTest = partial class 
  Field: Integer;
  procedure WriteLnMe;
  begin
    WriteLn(Field);
  end;
  end;

type
  TTest = partial class 
    procedure Inc;
    begin
     Field += 1;
    end;
end;

type
  TTest = class
    partial procedure Dec;
    begin
      Field -= 1;
    end;
  end;

var o := new TTest;
    o.WriteLnMe;
    o.Inc;
    o.WriteLnMe;
    o.Dec;
    o.WriteLnMe;

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

  var o = null;
  /// TTest = class (TObject)
  ///  [line: 48, column: 3, file: uMain]
  var TTest = {
	 $ClassName:"TTest",$Parent:TObject
	 ,$Init:function ($) {
		TObject.$Init($);
		$.Field = 0;
	 }
	 /// procedure TTest.WriteLnMe()
	 ///  [line: 41, column: 13, file: uMain]
	 ,WriteLnMe:function(Self) {
		WriteLn(Self.Field);
	 }
	 /// procedure TTest.Inc()
	 ///  [line: 49, column: 15, file: uMain]
	 ,Inc:function(Self) {
		Self.Field+=1;
	 }
	 /// procedure TTest.Dec()
	 ///  [line: 57, column: 23, file: uMain]
	 ,Dec:function(Self) {
		Self.Field-=1;
	 }
	 ,Destroy:TObject.Destroy
  };
  o = TObject.Create($New(TTest));
  TTest.WriteLnMe(o);
  TTest.Inc(o);
  TTest.WriteLnMe(o);
  TTest.Dec(o);
  TTest.WriteLnMe(o);