project1.dpr

一个学习DELPHI继承的小程序

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TMyObject = class(TObject)
    procedure ShowHier;virtual;
  end;
  TMy2 = class(TMyObject)
    procedure ShowHier;override;
  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;

{ TMy2 }

procedure TMy2.ShowHier;
begin
  inherited;
  writeln('hello');
end;
var
  MyObject : TMyObject;
  my2 : TMy2;
begin
  MyObject := TMyObject.Create;
  my2 := tmy2.Create;
  MyObject := my2;
  my2.ShowHier;    my2.Free;
  myobject.Free;

  readln;
end.