Smart pascal source code


type
TBase = class
  class const c1 = 1;
  const c2 = 2;
  property p1 : Integer read c1;
  property p2 : Integer read c2;
end;

{ unit1.pas }
var
  o := TBase.Create;

Begin
WriteLn(TBase.P1);  // 1
WriteLn(TBase.P2);  // 2

WriteLn(o.P1);  // 1
WriteLn(o.P2);  // 2

      var o = null,
         o = TObject.Create($New(TBase));
      WriteLn(1);
      WriteLn(2);
      WriteLn(1);
      WriteLn(2);
/// TBase = class (TObject)
///  [line: 72, column: 1, file: uMain]
var TBase = {
   $ClassName:"TBase",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   ,Destroy:TObject.Destroy
};