project1.~dpr

一个学习DELPHI继承的小程序

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TMyObject = class(TObject)
    procedure ShowHier;
  end;

{ TMyObject }

procedure TMyObject.ShowHier;
var
  AClass : TClass;
begin
  writeln(ClassName);
  AClass := ClassParent;
  while AClass <> nil do
  begin
    writeln(AClass.ClassName);
    AClass := AClass.ClassParent;
  end;

end;
var
  MyObject : TMyObject;
begin
  MyObject := TMyObject.Create;
  MyObject.ShowHier;
  MyObject.Free;
  readln;
end.