Anim.pas
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:0k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. unit Anim;
  2. interface
  3. type
  4.   TAnimal = class
  5.   public
  6.     constructor Create;
  7.     function GetKind: string;
  8.   private
  9.     Kind: string;
  10.   end;
  11.   TDog = class (TAnimal)
  12.   public
  13.     constructor Create;
  14.   end;
  15. implementation
  16. constructor TAnimal.Create;
  17. begin
  18.   Kind := 'An animal';
  19. end;
  20. function TAnimal.GetKind: string;
  21. begin
  22.   GetKind := Kind;
  23. end;
  24. constructor TDog.Create;
  25. begin
  26.   Kind := 'A dog';
  27. end;
  28. end.