virtual_constructor I

Smart pascal source code


type
  TClassA = class
  protected
    str: string;
  public
    constructor Create; virtual;
    class procedure Test; virtual;
    property strProp: String read str;
  end;

type
  TClassB = class(TClassA)
  public
    constructor Create; override;
    class procedure Test; reintroduce;
  end;

constructor TClassA.Create;
begin
  str := 'A';
end;

class procedure TClassA.Test;
begin
  WriteLn('TestA');
end;

constructor TClassB.Create;
begin
  str := 'B';
end;

class procedure TClassB.Test;
begin
  WriteLn('TestB');
end;

var cls: class of TClassA;

var o: TClassA;

cls := TClassB;
o := cls.Create;

WriteLn(o.strProp);
o.Test; // call static method
TClassB(o).Test;

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
Errors >>>>
Hint: "test" does not match case of declaration ("Test") [line: 52, column: 3]
Hint: "test" does not match case of declaration ("Test") [line: 53, column: 12]
Result >>>>
B
TestA
TestB
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var TClassA = {
   $ClassName:"TClassA",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.str = "";
   }
   ,Create$3:function(Self) {
      $Check(Self,"").str = "A";
      return Self
   }
   ,Test:function(Self) {
      WriteLn("TestA");
   }
   ,Destroy:TObject.Destroy
   ,Create$3$:function($){return $.ClassType.Create$3($)}
};
var TClassB = {
   $ClassName:"TClassB",$Parent:TClassA
   ,$Init:function ($) {
      TClassA.$Init($);
   }
   ,Create$3:function(Self) {
      $Check(Self,"").str = "B";
      return Self
   }
   ,Test$1:function(Self) {
      WriteLn("TestB");
   }
   ,Destroy:TObject.Destroy
   ,Create$3$:function($){return $.ClassType.Create$3($)}
};
var cls = null;
var o = null;

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

   cls = TClassB;
   o = TClassA.Create$3$($NewDyn(cls,""));
   WriteLn($Check(o,"").str);
   TClassA.Test($Check(o,"").ClassType);
   TClassB.Test$1($Check($As(o,TClassB),"").ClassType);