Smart pascal source code


  type
    TTest = class
      Field: Integer;
      constructor Create(a: Integer);
      begin
        if a <= 0 then
          Exit;
        Field := a;
      end;
    end;

  var
    t: TTest;

  t := new TTest(1);
  WriteLn(t.Field);

  t := new TTest(-1);
  WriteLn(t.Field);

  { <<< CONSOLE OUTPUTS >>>
    1
    0
  }

      var t = null;
      /// TTest = class (TObject)
      ///  [line: 40, column: 4, file: uMain]
      var TTest = {
         $ClassName:"TTest",$Parent:TObject
         ,$Init:function ($) {
            TObject.$Init($);
            $.Field = 0;
         }
         /// constructor TTest.Create(a: Integer)
         ///  [line: 42, column: 19, file: uMain]
         ,Create$5:function(Self, a) {
            if (a<=0) {
               return Self;
            }
            Self.Field = a;
            return Self
         }
         ,Destroy:TObject.Destroy
      };
      t = TTest.Create$5($New(TTest),1);
      WriteLn(t.Field);
      t = TTest.Create$5($New(TTest),-1);
      WriteLn(t.Field);