Sign in Join
Wiki copytemporary

Object Oriented Programming with Free Pascal and Lazarus/zh CN: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

OldNewLine
11有许多Pascal的优秀教程，但是本教程尝试让初学者走得更远，进入[[Glossary|面向对象编程]]，这是对Turbo-pascal，Delphi和FreePascal/Lazar提供的标准Pascal的扩展。
22
33[[Glossary|对象]]是对标准Pascal [record](http://wiki.lazarus.freepascal.org/Record)结构的扩展
44
55标准的基于文本的Pascal编程善于创建类似传统Unix应用，做一件事并且做得很好的应用。程序做的“一件事”可能是一个非常复杂的动作，可能给用户提供几个菜单驱动的选项，但是它本质上受限于服从用户在键盘上输入的命令，在终端或打印机上列出它的响应。
66
77为了提供一个[[Glossary|图形用户界面（GUI）]]，通常要调用某种形式的面向对象编程方法（经常使用[[Glossary|C]]或它的变种，或Visual Basic，或诸如与或不与[[Glossary|Lazarus]]一起使用的[[Glossary|FreePascal]]的Pascal变种）。
88
99在GUI里，有大量以结构化方式排列的图片，由与各种诸如下面行为关联的一系列工具或[[Glossary|部件]]组成的屏幕代表用户。
1010
1111- 从菜单选择，
1212- 打开或保存文件，
1313- 连接Internet，
1414- 执行数字计算，等等。
1515
1616预期用户在屏幕上移动鼠标或其它光标/选择工具，选择对应鼠标按钮点击或按键执行的行为。
1717
1818当处理复杂图形用户界面的系统可以用标准Pascal或大多数任意其它编程语言编写时，那么更容易使用一个面向对象系统，在这样的系统里，屏幕上的每个图形对象可以有以通常结构保存在一起的所有属性，与用法关联的过程和函数。
1919
2020## 对象——一个现实世界模拟
2121
2222设想医院或医生办公室收集的血液样本的模拟。
2323
2424### 血液样本
2525
2626实物样本当然地是一个**对象**；它有与之关联的许多信息，文档和其它实物对象。
2727
2828- 由医生想要实施的测试决定类型的**样本试管**。
2929
3030- 指示护士或技术员收集样本的**本地规则** (或*方法*，*标准操作过程*)
3131 - 使用哪类试管，
3232 - 如何处理样本
3333 - 在转移到实验室之前如何存储它。
3434
3535- 试管上有下列细节的**标签**
3636 - 样本标识
3737 - 病人姓名和生日
3838 - 收集日期和时间
3939 - 需要的测试。
4040
4141- 与样本一起到实验室的**申请表**，表明
4242 - 样本标识
4343 - 申请医生的标识
4444 - 医生申请的测试以及
4545 - 给出的病人的充分详情
4646 - 寻求可能诊断的确认。
4747
4848申请表的拷贝放在病人笔记里，提醒医生在合适时间里得到结果。
4949
5050- 在实验室里——**本地方法**决定
5151 - 如何分析样本，
5252 - 使用哪台机器，
5353 - 机器如何校准和操作，
5454 - 结果如何存储，格式化以及
5555 - 返回给医生。
5656
5757真实的**结果**是医生用来辅助诊断的纪录，它的拷贝填写在病人笔记里。
5858
5959为了参考，确认或进一步的测试，实物样本可能被保留；或者可能被冲下洗涤槽或焚化；将有一个方法来描述这。
6060
6161每次收集样本时，医生不需要阐明所有的细节和指示；确实，他可能没有样本在实验室里如何处理的知识。各种处理的细节是从以前样本收集和分析**继承**的——整个顺序有一个通用计划，我们可以把血液样本，它的所有文档，数据和底层方法，当作一个复杂的**对象**。
6262
6363在医生的心里，血液样本看作和它的结果是一样的实体；对护士和技术人员来说，样本，试管，标签和存储条件组成一个单一实体。
6464
6565### 另外一个例子——汽车
6666
6767如果你不喜欢血液，同样的推理顺序可以应用到放到车库里维修的卡车。 它可能包括：
6868
6969- 实物车辆
7070- 所有者持有的文档：注册或执照（包括车牌），保险，购买收据，部件，维修等等
7171- 燃油消耗历史
7272- 允许使用车辆的驾驶员，以及执照详情
7373- 车库持有的服务纪录
7474- 例行检查和维修遵循的方法或过程
7575- 非例行维修遵循的方法等等
7676- 客户的帐单信息
7777
7878## 编程示例
7979
8080这个预先占领的现实世界例子足够了！（原文：Enough of this pre-occupation with Real-World examples!）让我们前往主要目的：用FreePascal编程。
8181
8282让我们考虑用FreePascal/Lazarus创建一个有一些控件的一个简单Form的应用。
8383
84-<div class="floatleft">
85-
86-<figure>
87-<img src="ObjectInspector-TForm.png" title="ObjectInspector-TForm.png" />
88-<figcaption>ObjectInspector-TForm.png</figcaption>
89-</figure>
90-
91-</div>
92-
93-<div class="floatright">
94-
95-<figure>
96-<img src="BlankForm.png" title="BlankForm.png" />
97-<figcaption>BlankForm.png</figcaption>
98-</figure>
84+![](/wiki-images/2/25/ObjectInspector-TForm.png)
9985
100-</div>
86+![](/wiki-images/e/e2/BlankForm.png)
10187
10288调用Lazarus IDE时，程序员面对一个空白的Form设计模版，在其上鼓励他放置各种控件或对象。
10389
10490注意预置的空白Form已经是一个对象了，有它自己的属性，诸如位置（顶部和右部），大小（高和宽），颜色，添加文本的默认字体等等。
10591
10692------------------------------------------------------------------------
10793
10894如果放置一个Button控件（TButton类型）在Form上，它将有自己的可以在对象察看窗口查看的一系列属性。
10995
11096几个属性有与Form的属性类似的名称；这是因为许多属性是从一些通用祖先类**继承**的，这些祖先类勾画出后代类如何定义和处理属性。
11197
11298正如属性一样，对象察看器提供了一个称作**事件**的标签（tab），它可以访问事件处理器，事件处理器是指示应用如何处理诸如鼠标点击按钮（OnClick）或位置、大小或其它属性改变（OnChange）等事件的方法。
11399
114100Form上Button的图片，与其所有属性和事件处理器方法，在Pascal里应该视为一个单一的实体或**对象**。
115101
116-<div class="floatleft">
117-
118-<figure>
119-<img src="ObjectInspector-TButton.png" title="ObjectInspector-TButton.png" />
120-<figcaption>ObjectInspector-TButton.png</figcaption>
121-</figure>
122-
123-</div>
124-
125-<div class="floatright">
126-
127-<figure>
128-<img src="FormWithButton.png" title="FormWithButton.png" />
129-<figcaption>FormWithButton.png</figcaption>
130-</figure>
131-
132-</div>
133-
134-<div class="floatright">
102+![](/wiki-images/f/f5/ObjectInspector-TButton.png)
135103
136-<figure>
137-<img src="Source_FormWithButton1.png‎" title="Source_FormWithButton1.png‎" />
138-<figcaption>Source_FormWithButton1.png‎</figcaption>
139-</figure>
104+![](/wiki-images/e/e8/FormWithButton.png)
140105
141-</div>
106+![](/wiki-images/4/4d/Source_FormWithButton1.png%E2%80%8E)
142107
143108## 标准Pascal的面向对象扩展
144109
145110通过定义
146111
147112### 对象
148113
149114扩展Pascal的纪录结构 对象是特殊类型的纪录。纪录包含在对象定义（就像一个常规纪录）里声明的所有域，但是现在过程和函数可以声明，仿佛它们是纪录的部分，并作为指向与对象类型关联的方法的指针持有。
150115
151116例如，一个对象可以包含一个实数数组，以及计算平均值的一个方法。
152117
153118`Type`\
154119`  Average = Object`\
155120`    NumVal: Integer;`\
156121`    Values: Array [1..200] of Real;`\
157122`    Function Mean: Real; { calculates the average value of the array }`\
158123`  End;`
159124
160125对象可以从”父”对象”继承”域和方法。这意味着可以使用这些域和方法，仿佛它们包含在作为”子”对象声明的对象里。
161126
162127此外，介绍一个能见性的概念：域，过程和函数可以声明为public，protected或private。默认地，域和方法是public的，可以在当前单元之外输出（exporte）。Protected域和方法仅在从当前祖先对象继承的对象里可见。声明为private的域和方法仅在当前单元可见：它们的范围仅限于当前单元的实现。
163128
164129### 类
165130
166131在FreePascal和Lazarus里不经常使用对象本身；相反，非常广泛地使用类。类以与对象几乎相同的方式来定义，但它是一个指向对象的指针而不是对象本身。从技术上讲，这意味着在程序堆上分配类，而在堆栈上分配对象。
167132
168133这里有一个典型类声明的简单例子：
169134
170135`{-----------------------------------------}`\
171136`{example of Class declaration from the LCL}`\
172137`{-----------------------------------------}`\
173138` TPen = class(TFPCustomPen)`\
174139` private`\
175140`   FColor: TColor;`\
176141`   FPenHandleCached: boolean;`\
177142`   FReference: TWSPenReference;`\
178143`   procedure FreeReference;`\
179144`   function GetHandle: HPEN;`\
180145`   function GetReference: TWSPenReference;`\
181146`   procedure ReferenceNeeded;`\
182147`   procedure SetHandle(const Value: HPEN);`\
183148` protected`\
184149`   procedure DoAllocateResources; override;`\
185150`   procedure DoDeAllocateResources; override;`\
186151`   procedure DoCopyProps(From: TFPCanvasHelper); override;`\
187152`   procedure SetColor`\
188153`        (const NewColor: TColor; const NewFPColor: TFPColor); virtual;`\
189154`   procedure SetFPColor(const AValue: TFPColor); override;`\
190155`   procedure SetColor(Value: TColor);`\
191156`   procedure SetMode(Value: TPenMode); override;`\
192157`   procedure SetStyle(Value: TPenStyle); override;`\
193158`   procedure SetWidth(value: Integer); override;`\
194159` public`\
195160`   constructor Create; override;`\
196161`   destructor Destroy; override;`\
197162`   procedure Assign(Source: TPersistent); override;`\
198163`   property Handle: HPEN read GetHandle write SetHandle; deprecated;`\
199164`   property Reference: TWSPenReference read GetReference;`\
200165` published`\
201166`   property Color: TColor read FColor write SetColor default clBlack;`\
202167`   property Mode default pmCopy;`\
203168`   property Style default psSolid;`\
204169`   property Width default 1;`\
205170` end;`
206171
207172注意该类是作为另一个**父**或**祖先**类（*TFPCustomPen*）的实例来定义的，它**继承**了其所有属性和方法。它有一些自己的域，用以下的来分组
208173
209174- **private** - 这意味着这里定义的项目仅对在同一个程序单元里定义的其它类或过程/函数有效或可见（本例来自*Graphics*，因此在同一单元的诸如*TBitMap*，*TPicture*等的任意其它类可以使用它们）。它们本质上是本地变量（例如*FColor*，*FPenHandleCached*）或本地可用方法（*GetHandle*，*SetHandle*），但是在**protected**或**public**节定义的项目可以使用或指向它们。
210175- **protected** - 这意味着这里定义的项目仅对该**祖先**类的后代类有效或可见，并继承它的属性或方法
211176- **public** - 这意味着这里定义的项目对在其[[Glossary|Uses]]条款（clause）包含当前单元的任何编程单元有效
212177- **published** - 与**public**节相同，但是编译器也生成这些类自动流所需的类型信息。通常published项目列表显示在Lazarus的对象察看器里；如果没有**published**列表，所有**public**域通常显示在对象察看器里。
213178
214179### 方法
215180
216181方法就像标准的过程或函数，但是可能有一些附加的**指示**（**directives**）。
217182
218183上面定义的一些方法以指示**virtual**标示；其它的以**override**指示标示。
219184
220185- **virtual**意味着方法的类型或实际的实例在编译时未知，但是在运行时依赖于实际调用方法的子程序来选择。可以把它认为是类定义里的占位者（place-holder ）。\[译者SunshineTech注：这与Java里的抽象方法是一样的，其在子类里具体实现，不同的子类有不同的实现方式。运行时根据子类来判断需要实际执行的方法实现。例如，假设有一个形状类，它定义了一个draw方法用来画出该形状，其子类如圆，正方形等具体来实现draw方法。\]
221186- **override**意味着在运行时本地指定的定义可以替换从祖先类继承的定义，特别是如果它是**virtual**。如果特别想使用祖先类里定义的方法，那么有时候必须使用**inherited**条款专门调用它。
222187
223188没有virtual或override指示的方法是**静态**方法（Pascal的普通种类）。有virtual或override指示的方法**动态**方法。
224189
225190方法的特殊实例是：
226191
227192- **create** - 类的**构造器**，关注于分配内存、收集所有需要的信息和配置/初始化各种属性。
228193- **destroy** - 类的**析构器**，以一种顺序地和逻辑的方法从系统中删除类的所有部分，将所有资源返回给系统重用。
229194
230195### 属性
231196
232197属性就像常规Pascal纪录里的普通域，但是它们可以有**read**和/或**write**符号。
233198
234199- **read**符号是为属性返回正确类型的结果的一个域或函数。在上面的例子中，属性*Color*有一个读符号*FColor*，它是一个包含要使用值的本地变量。如果属性有**read**但没有**write**符号，那么它是只读的。
235200- **write**符号是将属性值存储在指定位置的域或过程。在上面的例子里，*Color*有一个写符号*SetColor*，它是一个过程（在**protected**节定义），用来将颜色值写入一些指定的地方。如果一个属性有**write**但是无**read**符号，那么它是只写的。
236201- **default** - 注意有可能为属性设置一个**default**值。例如，在创建时，*Color*在这里被指定了默认值*clBlack*，或黑色。它可能在后来由程序分配语句或在对象察看器里指定一个不同的值。
237202
238203## 更多信息
239204
240205这只是触及了主题的表面。需要更多细节，强烈建议读者阅读[FreePascal](http://lazarus-ccr.sourceforge.net/fpcdoc/ref/ref.html)手册，尤其是第5章（**对象**）和第6章（**类**）
241206
242207--Kirkpatc 11:04, 20 July 2008 (CEST)
243208
244209--SunshineTech翻译完成于2010年1月3日16：51（中国北京）
245210
246211------------------------------------------------------------------------
247212
248213[[Console Mode Pascal]]
249214
250215---
251216*From the Free Pascal wiki, page "Object Oriented Programming with Free Pascal and Lazarus/zh CN", as it stood on 2015-06-19 after a change by FTurtle, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).*

Back to history