现代Object Pascal介绍-第四部分

立即下载 作者: 薄情
上传时间: 2024-09-16
关键词: procedure MyInt Method end 内部 class
大小 319.7 KB
描述
robsean@126.com QQ 群：192903718
1 / 13
4. 类
4.1. 基础
我们有类。在基础层，一个类只是一个容器，对于
 字段（fields） (它是一个对“一个在类内部中的变量”的设想（fancy）名称)，
 方法 (它是一个对“一个在类内部中 produre（过程）或函数”的设想（fancy）名称)，
 和 属性 (它是一个对一些看起来像一个字段（fields），但事实上是一对方法来 get（获
取）和 set（设置） 一些东西；更多在 属性)。
 事实上，这里有更多的可能，描述在 更多原材料（stuff）在类和嵌套类的内部.
type
TMyClass = class
MyInt: Integer;
procedure MyMethod;
end;
procedure TMyClass.MyMethod;
begin
Writeln(MyInt + 10);
end;
4.2. 继承（Inheritance），is，as
我们有继承（inheritance）和虚拟方法（virtual methods）。
{$mode objfpc}{$H+}{$J-}
program MyProgram;
uses SysUtils;
type
TMyClass = class
MyInt: Integer;
procedure MyVirtualMethod; virtual;
end;
TMyClassDescendant = class(TMyClass)
procedure MyVirtualMethod; override;
end;
procedure TMyClass.MyVirtualMethod;
begin
Writeln('TMyClass shows MyInt + 10: ', MyInt + 10);
end;
robsean@126.com QQ 群：192903718
2 / 13
procedure TMyClassDescendant.MyVirt
目录
procedure/MyInt/Method/end/内部/class/ procedure/MyInt/Method/end/内部/class/