Smart pascal source code


type
  TMyClass = class
    FField: Integer;
    procedure SetField(f: Integer);

    begin
      FField := MaxInt(0, f);
    end;
    property Field: Integer read FField write SetField;
    procedure WriteLnMe; virtual;

    begin
      WriteLn(Field);
    end;
  end;

type
  TMySubClass = class(TMyClass)
    procedure WriteLnMe; override;

    begin
      WriteLn('Sub-');
      inherited;
    end;

  const
    cHello = 'Hello';
    class function Hello: String;

    begin
      Result := cHello;
    end;
  end;

var
o := TMyClass.Create;
o.Field := 3;
o.WriteLnMe;
o.Field := -o.Field;
o.WriteLnMe;

WriteLn(TMySubClass.Hello);

o := TMySubClass.Create;
o.Field := 3;
o.WriteLnMe;
WriteLn((o as TMySubClass).Hello);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
3
0
Hello
Sub-3
Hello
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var TMyClass = {
   $ClassName:"TMyClass",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.FField = 0;
   }
   ,SetField:function(Self, f) {
      $Check(Self,"").FField = MaxInt$_Integer_Integer_(0,f);
   }
   ,WriteLnMe:function(Self) {
      WriteLn($Check(Self,"").FField);
   }
   ,Destroy:TObject.Destroy
   ,WriteLnMe$:function($){return $.ClassType.WriteLnMe($)}
};
var TMySubClass = {
   $ClassName:"TMySubClass",$Parent:TMyClass
   ,$Init:function ($) {
      TMyClass.$Init($);
   }
   ,WriteLnMe:function(Self) {
      WriteLn("Sub-");
      TMyClass.WriteLnMe(Self);
   }
   ,Hello:function(Self) {
      return "Hello";
   }
   ,Destroy:TObject.Destroy
   ,WriteLnMe$:function($){return $.ClassType.WriteLnMe($)}
};
var o = null;

/* <<< main JS >>> */

   o = TObject.Create($New(TMyClass));
   TMyClass.SetField(o,3);
   TMyClass.WriteLnMe$($Check(o,""));
   TMyClass.SetField(o,-$Check(o,"").FField);
   TMyClass.WriteLnMe$($Check(o,""));
   WriteLn(TMySubClass.Hello(TMySubClass));
   o = TObject.Create($New(TMySubClass));
   TMyClass.SetField(o,3);
   TMyClass.WriteLnMe$($Check(o,""));
   WriteLn(TMySubClass.Hello($Check($As(o,TMySubClass),"").ClassType));