Smart pascal source code


type
  TBase = class
    Field: Integer;
    procedure WriteLnBase;
  end;

type
  TChild = class(TBase)
    Field: Integer;
    procedure WriteLnChild;
  end;

procedure TBase.WriteLnBase;
begin
  WriteLn(Field);
end;

procedure TChild.WriteLnChild;
begin
  WriteLn(Field);
end;

{------- main.pas -------}

Begin
  var c := TChild.Create;
  var b: TBase := c;

  b.Field := 1;
  c.Field := 2;

  b.WriteLnBase;
  c.WriteLnBase;
  c.WriteLnChild;
  { <<< CONSOLE OUTPUTS >>>
    1
    1
    2
  }

      var c = null;
      var b = null;
      c = TObject.Create($New(TChild));
      b = c;
      b.Field = 1;
      c.Field$1 = 2;
      TBase.WriteLnBase(b);
      TBase.WriteLnBase(c);
      TChild.WriteLnChild(c);
	  
/// TBase = class (TObject)
///  [line: 35, column: 2, file: uMain]
var TBase = {
   $ClassName:"TBase",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.Field = 0;
   }
   /// procedure TBase.WriteLnBase()
   ///  [line: 46, column: 17, file: uMain]
   ,WriteLnBase:function(Self) {
      WriteLn(Self.Field);
   }
   ,Destroy:TObject.Destroy
};
/// TChild = class (TBase)
///  [line: 41, column: 5, file: uMain]
var TChild = {
   $ClassName:"TChild",$Parent:TBase
   ,$Init:function ($) {
      TBase.$Init($);
      $.Field$1 = 0;
   }
   /// procedure TChild.WriteLnChild()
   ///  [line: 51, column: 18, file: uMain]
   ,WriteLnChild:function(Self) {
      WriteLn(Self.Field$1);
   }
   ,Destroy:TObject.Destroy
};