Delphi7 中类说明

云中雁012345

于 2013-12-09 17:27:00 发布

阅读量909

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi中的OOP

本文链接：https://blog.youkuaiyun.com/peixiaobin_blog/article/details/17226423

Delphi中的OOP 专栏收录该内容

2 篇文章

订阅专栏

program Project1;

{$APPTYPE CONSOLE}
type
  {class Ta 默认继承与 Tobject }
  Ta = class
  procedure show;virtual;
  end;

  {class Tb 继承于 Ta }
  tb = class(ta)
  procedure show;override;
  end;

  {implement}
  procedure ta.show;
  begin
    write('a');
  end;

  procedure tb.show;
  begin
    inherited show;
    write('b');
  end;

var
 x:tb;//定义一个 tb 变量
begin
  x:= tb.create;
  x.show;
  Readln;
end.