Smart pascal source code


{
  Demo: Object Orientated Programming (OOP)

}
type
  AClass = class
    s, t: string;
    procedure P(param: string); virtual;
    function Q: string;
  end;

type
  BClass = class(AClass)
    u, v: string;
    procedure P(param: string); override;
    function Q: string;
  end;

procedure AClass.P;
begin
  WriteLn('AClass.P(' + param + ')');
end;

function AClass.Q: string;
begin
  Result := 'AClass.Q: Static method';
end;

procedure BClass.P;
begin
  WriteLn('BClass.P(' + param + ')');
  inherited P(param);
end;

function BClass.Q: string;
begin
  Result := 'BClass.Q: Static method';
  inherited P('inh');
end;

var o: AClass;

o := BClass.Create;

WriteLn('--- Virtual methods');
o.P('Hello World!');
BClass(o).P('Hello World!');

WriteLn('');

WriteLn('--- Static methods');
WriteLn(o.Q);
WriteLn(BClass(o).Q);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
--- Virtual methods
BClass.P(Hello World!)
AClass.P(Hello World!)
BClass.P(Hello World!)
AClass.P(Hello World!)

--- Static methods
AClass.Q: Static method
AClass.P(inh)
BClass.Q: Static method

-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var AClass = {
   $ClassName:"AClass",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.s = $.t = "";
   }
   ,P:function(Self, param) {
      WriteLn(("AClass.P("+param+")"));
   }
   ,Q:function(Self) {
      return "AClass.Q: Static method";
   }
   ,Destroy:TObject.Destroy
   ,P$:function($){return $.ClassType.P.apply($.ClassType, arguments)}
};
var BClass = {
   $ClassName:"BClass",$Parent:AClass
   ,$Init:function ($) {
      AClass.$Init($);
      $.u = $.v = "";
   }
   ,P:function(Self, param$1) {
      WriteLn(("BClass.P("+param$1+")"));
      AClass.P(Self,param$1);
   }
   ,Q$1:function(Self) {
      var Result = "";
      Result = "BClass.Q: Static method";
      AClass.P(Self,"inh");
      return Result
   }
   ,Destroy:TObject.Destroy
   ,P$:function($){return $.ClassType.P.apply($.ClassType, arguments)}
};
var o = null;

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

   o = TObject.Create($New(BClass));
   WriteLn("--- Virtual methods");
   AClass.P$($Check(o,""),"Hello World!");
   AClass.P$($Check($As(o,BClass),""),"Hello World!");
   WriteLn("");
   WriteLn("--- Static methods");
   WriteLn(AClass.Q(o));
   WriteLn(BClass.Q$1($As(o,BClass)));