11.9.pas

delphi renyuanguanlixinxioxitong

program Project1;
{$APPTYPE CONSOLE}
type
  TFruit=class // 水果类
procedure Infor;virtual;abstract;
end;
TApple = class(TFruit) // 苹果类
  Name:string;
  procedure Infor;override;
end;
TOrange=class(TFruit)// 桔子类
  procedure Infor;override;
end;
procedure TApple.Infor;
begin
  Writeln('苹果。');
end;
procedure TOrange.Infor;
begin
  Writeln('桔子。');
end;
var
  A1: TApple; // 声明一个苹果类的变量
  O1: TOrange; // 声明一个桔子类的变量
Begin
  A1:= TApple.Create;
  A1.Infor;// 调用的是TApple类的Infor
  A1.Destroy;
  O1:=TOrange.Create;
  O1.Infor;// 调用的是TOrange类的Infor
  O1.Destroy;
end.