Smart pascal source code


type
  TBase = class
  end;

type
  TChild = class(TBase);

type
  TSubChild = class(TChild);

type
  TOtherChild = class(TBase);

procedure WriteLnHierarchy(base: TClass);
begin
  while Assigned(base) do
  begin
    Writeln(' => ');
    Writeln(base.ClassName);
    base := base.ClassParent;
  end;
  Writeln('');
end;

{ main.pas }

Begin
  WriteLnHierarchy(TBase);
  WriteLnHierarchy(TChild);
  WriteLnHierarchy(TSubChild);
  WriteLnHierarchy(TOtherChild);

{ ### CONSOLE OUTPUTS ###
   => TBase => TObject
   => TChild => TBase => TObject
   => TSubChild => TChild => TBase => TObject
   => TOtherChild => TBase => TObject
}

      WriteLnHierarchy(TBase);
      WriteLnHierarchy(TChild);
      WriteLnHierarchy(TSubChild);
      WriteLnHierarchy(TOtherChild);

function WriteLnHierarchy(base) {
   while (base!==null) {
      WriteLn(" => ");
      WriteLn(ClassName$1(base));
      base = TObject.ClassParent(base);
   }
   WriteLn("");
};
/// TBase = class (TObject)
///  [line: 72, column: 3, file: uMain]
var TBase = {
   $ClassName:"TBase",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   ,Destroy:TObject.Destroy
};
/// TOtherChild = class (TBase)
///  [line: 82, column: 3, file: uMain]
var TOtherChild = {
   $ClassName:"TOtherChild",$Parent:TBase
   ,$Init:function ($) {
      TBase.$Init($);
   }
   ,Destroy:TObject.Destroy
};
/// TChild = class (TBase)
///  [line: 76, column: 3, file: uMain]
var TChild = {
   $ClassName:"TChild",$Parent:TBase
   ,$Init:function ($) {
      TBase.$Init($);
   }
   ,Destroy:TObject.Destroy
};
/// TSubChild = class (TChild)
///  [line: 79, column: 3, file: uMain]
var TSubChild = {
   $ClassName:"TSubChild",$Parent:TChild
   ,$Init:function ($) {
      TChild.$Init($);
   }
   ,Destroy:TObject.Destroy
};