Delphi面向对象的编程方法（一）

Delphi的编程语言是以Pascal为基础的 Pascal语言具有可读性好 编写容易的特点 这使得它很适合作为基础的开发语言 同时 使用编译器创建的应用程序只生成单个可执行文件( EXE) 正是这种结合 使得Pascal成为Delphi这种先进开发环境的编程语言

    本章中 我们将讨论Object Pascal的主要特点 并讲解如何在事件处理过程和其他应用程序中 使用它来编制程序代码 本章将讲解Delphi应用程序中最常用的Object Pascal语法 而不是Pascal语言的一切细节 如果您完全不熟悉Pascal编程 请参阅一些基础的Pascal教程 如果您具有编程经验 并能熟练地使用其他流行程序语言 您将在本章的Object Pascal中发现一些相同的概念 如果您已经熟悉了Borland Pascal 就可以快速浏览或跳过本章 　

编写Object Pascal程序代码　

在本章中 我们将从熟悉Pascal编程的角度 配合实例 讲解Object Pascal编程的基本方法

在编写自己的Object Pascal程序时 要注意程序的可读性 Pascal语言是英式结构语言 在程序中选择合适的缩排 大小写风格 并在需要时将程序代码分行 会使得程序代码能够很容易地被自己和他人读懂 一般的程序员都有这样的体验 如果不给程序加上适当的注解 一段时间后 自己也难以理清程序的流程 给程序及时地加上注释是良好的编程习惯 Delphi的注释需要加注在{}之间 编辑器会把它们处理成为空白 Delphi保留了Borland Pascal编辑器的风格 关键字采用黑体字 被注释的部分会变暗 这使得编程风格良好 易读易写 　

编写赋值语句　

        在事件处理过程中 最常用到的工作就是把一个新值赋给一个属性或变量 在设计用户界面时 可以使用Object Inspector(Object Inspector)来改变其属性 但有时需要在程序执行时改变属性的值 而且有些属性只能在执行时改变 这些属性在Delphi的在线帮助的 Proprety 主题中被标为执行期属性 进行这种改变 就必须使用赋值语句

       下文的赋值语句表征一个OnClick事件 当按钮按动后 将编辑框部件Edit 的Color属性置为clRed:procedure TForm Button Click(Sender: TObject)beginEdit Color := clRedend　

        当按动按钮后赋值语句被执行 编辑框变成红色

        在语句中 部件的名称在属性前 中间用 表示属性的所属关系 这样就准确地指定了要将clRed值赋给哪一部件的哪一属性 赋值号为 := 不论给属性还是给变量赋值 都是将右边的值赋给左边的属性或变量

当将一个属性值 变量 常量或文本数据赋给属性或变量时 所赋值的类型和接受此值的属性或变量的类型应相同或兼容 一个属性或变量的类型定义了此属性或变量的可能值集合 也定义了程序代码可以执行的运算 在前边的例程中 编辑框部件的Color属性和clRed的类型都是TColor 可以在在线帮助中找到一个属性的类型 另外一种方法是在Object Inspector中选定该属性值段 并按下F 键 则类型将在属性说明的结尾处列出 例如Color属性列出下边的语句 　

Property Color : TColor　

有些属性是只读(Read Only)的 它们只能被读取 不能被改变 请查阅在线帮助 在Delphi中这些只读属性都有注解 　

标识符的说明与使用　

标识符是Delphi应用程序中一些量的名称 这些量包括变量(var) 常量(const) 类型(type) 过程(procedure) 方法(Method)及其他 Object Pascal 在应用标识符时 必须首先说明它们 Object Pascal是强类型语言 它的编译器可以检查确保赋给变量或属性的值是正确的类型 以便于您改正错误 因为Object Pascal是编译语言 所以Delphi的执行速度要比使用解释语言快得多 在使用标识符前说明它们 可以减少程序错误并增加代码的效率 　

变量

变量是程序代码中代表一个内存地址的标识符 而此地址的内存内容在程序代码执行时可以被改变 在使用变量前必须对它进行说明 即对它进行命名 并说明它的类型 在所有变量说明以前加上保留字var 变量说明左边是变量的名称 右边则是该变量的类型 中间用(:)隔开 　

varValue Sum : IntegerLine : String　

在窗体中加入一个名称为Edit 的编辑框 再加入一个名称(属性Name)为Add的按钮部件 并建立如下的事件处理过程

procedure TForm addClick(Sender: TObject)varX Y: IntegerbeginX := Y := Edit Text := IntToStr(X + Y)end　

在本例中 当按动ADD按钮时 编辑框中显示值 在Object Pascal中 必须确保变量或属性被赋予类型相同或兼容的值 您可以尝试将赋给X的值改为 或去掉IntToStr函数 在编译时会出现类型不匹配的错误 这也说明了Object Pascal强类型语言的特点 Object Pascal有多个预定义的数据类型 您可以说明任何这些类型的变量

整形 Integer的范围是 到 占 字节的内存 Shortint从 到 占 字节内存 Longint从 到 占 字节内存 Byte从 到 占 字节 Word从 到 占 字节内存 它们都是没有小数部分的数字

实型 Single可以包含 到 位有效小数部分 占用 字节的内存 Double类可以包含 到 位有效小数部分 占用 字节的内存 Extended类型包含 到 位有效小数部分 占用 字节内存 Comp可以包含 到 位有效小数部分 占用 字节内存 以上实数类型只有在 / 选项[N+]打开才可以使用 Real可以包含 到 位有效小数部分 占用 字节内存 它只有在和以前Borland Pascal兼容的情况下才使用 否则应使用Double或Extended

布尔型 Boolean 只包含true或False两个值 占用 字节内存

       字符型 Char 一个ASCII字符 字符串类型String一串最长可达 个ASCII字符

指针型 Pointer 可以指向任何特定类型

       字符串型 PChar 是一个指向以零结尾的字符串的指针

除了预定义类型外 Delphi还有自行定义的类型 上述例程的TColor就是这种类型 此外 用户还可以定义自己的数据类型 这部分内容将在下文中详细讲述

整型类别和实型类别都各有五种类型 同一类别中 所有的类型与其他同类别的都相容 您可以将一种类型的值赋给相同类别中不同类型的变量或属性 而只需要这个值的范围在被赋值的变量或属性的可能值范围内 例如 对于一个Shortint型的变量 可以接受在 到 范围内的任意整数 例如Shortint类型的 您不能将 赋给它 因为 已经超出了Shortint的范围了 将范围检查功能打开(选用Options|Project 并在Compiler Options Page中选择Range Checking) 将会检查出一个范围错误 如果Range Checking没有被打开 那么程序代码将可以执行 但被赋值的值将不是您期望的值

在一些情况下 您可以进行不同类型的变量或属性的赋值 一般来说 可以将一个较小范围的值赋给一个较大范围的值 例如 您可以将整型值 赋给一个接受实型值的Double属性而使得值成为 但如果将一个Double类型的值赋给整形变量 则会出现类型错误 如果您不清楚类型的兼容性 可以参阅Delphi的在线帮助中 Type Compatibility and Assignment Compatibility 主题 　

常量　

       常量在说明时就被赋予了一个值 在程序执行过程中是不可改变的 下面的例子说明了三个常量 　

constPi = Answer = ProductName = Delphi 　

象变量一样 常量也有类型 不同的是 常量假设其类型就是常量说明中其所代表的值的类型 上文的三个常量的类型分别是real型 整形 字符串型 常量用 = 表示两边的值是相等的 　

过程与函数　

lishixinzhi/Article/program/Delphi/201311/8549

我们知道 win 或winNT都是 多线程 的 *** 作系统 在DELPHI ． 中 我们可以充分利用这一特性 编写出 多线程 的应用程序 对以往在DOS或 位windows下写程序的人来说 多线程 仍然是陌生的 但如同以前我们从DOS下的单任务过渡到windows ． 下的多任务 如今我们又必须过渡到 多线程 领域 毕竟计算机时代是在不断发展的 不过 幸运的是 在DELPHI ． 下进行多线程程序设计并不需要我们去学习庞大的WIN API函数 我们可以利用DELPHI下标准的多线程类TThread来完成我们的工作  TThread是一个abstract（抽象）类 也就是说 并不需要根据TThread来声明变量（而且根据TThread声明的变量也是完全无用） 我们要做的是把TThread作为基类 用继承的形式来生成子类 实际上 根据TThread来写多线程应用程序是非常容易的 下面就是一个基本的继承TThread生成的多线程类 QuerThrd．Pas unitQuerThrd interface uses Classes DBTables type TQueryThreadΚclass（TThread） private fQuery tQuery protected procedureExecute override public constructorCreate（Suspended Boolean Query TQuery） end implementation constructor TQueryThread．Create（Suspended Boolean Query TQuery） begin inheritedCreate（Suspended） fQuery ΚQuery FreeOnTerminate ΚTrue end procedureTQueryThread．Execute begin fQuery．Open end end． 在上面这个简单的例子中 我们构造了一个TThread的子类TQueryThread 用于在后台执行数据库查询 在该类的Create函数中 传递了两个参数Suspended和Query 其中Suspended用于控制线程的运行 如果Suspend为真 TQueryThread类的线程在建立后将立即被悬挂 一直到运行了Resume方法 该线程才会继续执行 Query参数用于接受一个已经存在的Query控件（在窗体中真正的Query控件）而使它在多线程的情况下运行 Execute是最重要的过程 它是类TQueryThread的执行部分 所有需要在这个多线程类中运行的语句都必须写在这个过程里 实际上构造自己的多线程类时 并不需要输入所有的这些代码 选择DELPHI的File菜单下的new选项 再选 TThreadObject 项目 DELPHI就会为你构造基本的程序模块 然后我们可以根据需要再做相应的修改 进程的执行 假设我们已经建立了一个窗体FORM 窗体中有我们将要使用的查询控件Query 那么我们在该单元的USES部分加入上面写的QuerThrd单元 procedureTForm ．Button Click（Sender TObject） begin ｛建立一个运行的进程｝ TQueryThread．Create（False Query ） end 如果这个过程被执行 那么窗体中的查询控件Query 就会自动在多线程的环境下运行查询 注意TQueryThread类中只有Create而没有Free 动态建立类以后又忘记删除是我们常犯的错误之一 不过在这里由于我们指定了FreeOnTerminate（运行完即删除）为真 所以当Execute里的语句执行完后 TQueryThread类占据的内存控件将被自动释放 然而还有一个问题值得我们注意 由于同一时刻可以有多个线程同时运行 那么我们还必须解决好同步的问题 如果几个多线程程序之间没有任何关联 那么它们之间也不会有任何冲突 但实际上 可能同时运行几个多线程的数据库应用程序 由于需要共享相同的数据库资源 我们还需要为Query 增加一个Tsession控件 其实 虽然我们也许没有亲自使用过Session控件 但实际上 在所有的数据库访问时DELPHI都会自动建立一个临时的Session控件 使用完后又动态地删除掉它 在平常的数据库编程时 用不着我们亲自来 *** 作 但在数据库多线程执行的情况下 为了不相互冲突 我们必须为每个数据库访问都定制自己的Session控件 这个步骤非常简单 我们只需要在窗体中增加一个Session控件 然后给它的属性 Sessionname 写一个任意的名字 并再在Query 的 Sessionname 中写一个相同的名字 这样我们的数据库程序就安全了 另一类需要解决同步问题的是那些对VCL资源进行 *** 作的程序 这类的程序非常多 好在解决的方法也非常简单 我们可以看下面这样一个程序 unitBncThrd interface uses WinProcs Classes Graphics ExtCtrls type TBounceThreadΚclass（TThread） private FShape TShape FXSpeed Integer FYSpeed Integer procedureMoveShape protected procedureExecute override public constructorCreate（Suspended Boolean Shape TShape XSpeed YSpeed Integer） propertyShape TShapereadFShape end implementation procedureTBouad．MoveShape var MaxHeight MaxWidth Integer begin withFShapedo begin Left ΚLeft＋FXSpeed Top ΚTop＋FYSpeed if（LeftΙ ）or （Left＋WidthΛParent．Width）then FXSpeed ΚFXSpeed＊－ if（TopΙ ）or （Top＋HeightΛParent．Height）then FYSpeed ΚFYSpeed＊－ end end procedureTBounceThread．Execute begin WhilenotTerminateddo begin Synchronize（MoveShape） end end constructorTBounceThread．Create（Suspended Boolean Shape TShape XSpeed YSpeed Integer） begin inheritedCreate（Suspended） FShape ΚShape FXSpeed ΚXSpeed ｛X轴走向的速度｝ FYSpeed ΚYSpeed ｛Y轴走向的速度｝ FreeOnTerminate ΚTrue end end． 这是一个多线程的碰碰球游戏 你可以有多个不同的球 它们分属不同的线程 各自独立的在屏幕上碰撞 显然 由于多个球运行的显示会同时 *** 作VCL资源 为了安全 我们在Execute过程中的执行部分加入了Synchronize（MoveShape）来调用MoveShape过程 实际上 在任何需要 *** 作VCL资源的地方 例如窗体 位图 都应加入Synchronize调用 执行时我们可以新建一个程序 然后在USES部分加入以上的BncThrd单元 再在它的窗体FORM 上加入两个Shape控件Shape 和Shape Shape 可以是一个矩形而Shape 是一个圆 加入以下的代码就可以让矩形和圆动起来 procedureTForm ．Button Click（Sender TObject） begin TBounceThread．Create（False Shape ） TBounceThread．Create（False Shape ） end lishixinzhi/Article/program/Delphi/201311/25059

其他语言

用于开发数据库应用程序的语言中 还可以使用目前数常见的 面向对象程序设计 （OOP）语言 如C++ Objact Pascal等 OOP代表了一种完全不同的程序设计方法 在这种程序设计方法中 活动被定义为在 对象 上发生的 *** 作 而不是作为一系列过程来定义的 在数据库应用程序中使用OOP语言的情况正在不断增加

开发数据库应用程序使用的另一种语言是 宏 语言 宏语言不是一种完全的程序设计语言 它实际上是一个用户手工输入的表 这个表被输入到应用程序中 以便自动执行一定的任务 对于某个特定应用的高级语言 宏语言通常可以在低档DBMS软件中或数据库服务器的前端中找到

最后 还有一种 Query By Example （QBE 范例查询）语言 严格地讲QBE不是一种语言 它是面向用户提供了一个或多个空表的界面 这些空表对应于数据库中的表 用户可以通过键盘选择需要查询的列 并在适当的列中填入条件从而定义查询的检索条件 然后DBMS就把QBE转换成相应的动作 以完成用户要求的查询任务

Delphi的数据库特性及功能简介

直到目前为止 计算机软件的开发分为两个不同的体系 其中一个体系是使用传统的程序设计语言（如Pascal Basic和C等）开发数值控制 数值运算等软件 围绕它们的重点是算术 数据结构以及近年产生的面向对象技术 另一个体系则是通用的数据库管理软件领域（数据库应用程序的开发） 这两个体系的发展都极为迅猛 但是二者并没出现混合渗透迹象 如果使用数据库语言进行传统的算术编程 虽然也能完成相应的功能 但是其编程过程可能极为复杂 如果使用传统的编程语言进行数据库编程 通过调用专用的数据库应用程序接口函数和过程 利用这些函数和过程提供的功能 可能也能做得比较完善 但这做起来大多是极其困难的 而Delphi结合了两个体系的优点 它结合了传统的编程语言Object Pascal和数据库语言的强大功能 它即可以用于传统的算术编程又可以用于数据库编程 特别是Delphi具有强大的数据库功能 利用Delphi的数据库工具 我们根本不需要编写任何Object Pascal代码便可以创建一个简单的数据库应用

Delphi是Borland公司于 年底发布的用于开发数据库应用程序的工具 它是面向对象的 它是目前开发客户/服务器数据库应用程序的强有力的工具 Delphi在Window 以上版本的系统环境下运行 目前具有两个版本 Delphi的标准版本和客户/服务器版本 标准版本包含一个Borland Database Engine的局部拷贝 它允许用户创建能访问dBASE Paradox和Local InterBase 服务器的数据库应用 它还支持具有 ODBC 接口的数据库 Delphi的客户/服务器版本包括Borland SQL Link 它能直接访问 ORACLE SyBase 和Microsoft SQL Server Informix以及InterBase数据库服务器

Delphi可以访问多种数据库管理系统的数据库 凭借窗体（Forms）和报表（Reports） BDE（Borland Database Engine）可以访问诸如Paradox dBASE 本地InterBase 服务器的数据库 也可以访问远程数据库服务器上的数据库（如ORACLE SyBase Informix等客户/服务器数据库中的数据库） 或任何经ODBC（Open Database Connecticity） 可访问的数据库管理系统中的数据库

Delphi的数据库特性

跟其他的应用程序一样 Delphi提供了许多部件以方便地创建数据库应用程序 数据库对象的数据成员既可在设计阶段设置 也可在运行阶段通过程序代码进行设置 Delphi的部件板上提供了两页数据库应用程序开发中所要使用的部件

数据访问页（Data Access Page）上的部件用于直接访问数据库中的数据库表

数据控制页（Data Control Page）上的部件用来与用户交互 显示 修改数据库中的数据

数据库应用程序首先是利用Delphi提供的数据库部件与BDE建立联系 然后再通过BDE与数据库联系 下图阐述了Delphi的数据库工具和部件 Delphi数据库应用程序与BDE 数据源之间的关系

下表概括了Delphi的数据库特性

表 Delphi的数据库特性

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

工具和部件   主 要 用 途

──────────────────────────────────────

Data Access Components  访问数据库 数据库表 存贮过程等

──────────────────────────────────────

Data Control Components  与用户交互 提供显示 修改数据库中数据的界面

──────────────────────────────────────

Database Desktop（DBD）  建立 索引 查询数据库表以及访问 编辑来自各数据中的数据

──────────────────────────────────────

ReportSmith  建立 浏览和打印数据库表中的数据

──────────────────────────────────────

Borland Database Engine  数据库应用通过BDE访问dBASE Paradox数据库中的数据（BDE）  和本地InterBase数据库服务器中的数据

──────────────────────────────────────

BDE Configuration  建立和管理BDE与数据库建立连接时所使用的数据库的

Utility  别名

──────────────────────────────────────

Local InterBase Server  它是一个单用户 多例程的本地SQL数据库服务器 可在单机环境下用来开发或测试客户/服务器数据库应用程序 然后再将之扩展成一个访问远程数据库服务器如ORACLE SyBase Informix等

──────────────────────────────────────

InterBase SQL Link  连接Delphi数据库应用程序一本地InterBase服务器的驱动程序

Delphi上述这些特性使得我们创建数据库应用程序通过BDE能够很灵活地与 dBASE Paradox Local InterBase数据库服务器进行连接并可以方便地访问其中的数据 我们在创建一个简单的数据库应用时通过使用Delphi提供的上述工具和部件甚至可以不需编写任何程序

BDE被自动地包含在Delphi中 因此 我们在创建数据库应用程序时 不必关心BDE的有关内容 Delphi的安装程序自动为Paradox dBASE和本地InterBaseServer 安装相应的驱动程序 并建立了有关的配置 DBE Configuration Utility 可以建立应用程序与数据库的连接信息 还可以为数据库设置别名

下表列出了Delphi开发Client/Server应用程序的有关特性 这些特性扩展了 Delphi访问远程数据库的功能 如SQL数据库服务器（ORACLE SyBase Informix Microsoft SQL Server InterBase）

表 Delphi Client/server数据库特性

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

工 具   主 要 用 途

─────────────────────────────────

SQL Drivers  SQL Drivers中的SQL link和ReportSmith为Delphi数据库应用程序提供了访问远程SQL服务器的驱动程序 如访问ORACLE SyBase Microsoft SQL server Informix Intermix

　  ─────────────────────────────────

lishixinzhi/Article/program/Delphi/201311/25183

---