Smart pascal source code


type
TTest1 = class
  protected
    Field: Integer;
end;

type
TTest2 = class
  private
   procedure Internal;
   begin
     WriteLn('Internal was called');
   end;
end;

type
  TTest3 = class
  Field1: TTest1;
  Field2: TTest2;
  procedure Here;
end;

procedure TTest3.Here;
begin
 Writeln(IntToStr(Field1.Field));
 Field2.Internal;
end;

{ main.pas }

var
  c : TTest3;
Begin
  c := TTest3.Create;
  c.Here;
{ ### CONSOLE OUTPUTS ###
  Uncaught TypeError: Cannot read property 'Field' of null
}

      var c = null;
      c = TObject.Create($New(TTest3));
      TTest3.Here(c);
	  
/// TTest3 = class (TObject)
///  [line: 87, column: 3, file: uMain]
var TTest3 = {
   $ClassName:"TTest3",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.Field1 = $.Field2 = null;
   }
   /// procedure TTest3.Here()
   ///  [line: 93, column: 18, file: uMain]
   ,Here:function(Self) {
      WriteLn(Self.Field1.Field.toString());
      TTest2.Internal(Self.Field2);
   }
   ,Destroy:TObject.Destroy
};
/// TTest2 = class (TObject)
///  [line: 78, column: 1, file: uMain]
var TTest2 = {
   $ClassName:"TTest2",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   /// procedure TTest2.Internal()
   ///  [line: 80, column: 14, file: uMain]
   ,Internal:function(Self) {
      WriteLn("Internal was called");
   }
   ,Destroy:TObject.Destroy
};
/// TTest1 = class (TObject)
///  [line: 72, column: 1, file: uMain]
var TTest1 = {
   $ClassName:"TTest1",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.Field = 0;
   }
   ,Destroy:TObject.Destroy
};