1、delphi编程教程第一章 Pascal历史回顾 Delphi中使用的面向对象pascal编程语言并不是borland公司1995年发布可视化开发环境Delphi时才有的，它只是已有borland pascal产品的简单扩展。 Borland没有发明pascal，但它推广并扩展了pascal。这一章对pascal语言的历史背景及其发展历程作一简短回顾。沃斯的pascalPascal 语言最初由瑞士苏黎士理工学院的尼古拉斯-沃斯(Niklaus Wirth)教授在1971年设计, 作为Algol语言(1960年设计)简化本用于教学目的。设计Pascal时，许多编程语言业已存在，但只有FORTRA
2、N、C、Assembler、COBOL等少数语言在广泛应用。Pascal这种新语言的灵魂是其语言规则，Pascal语言规则的管理是通过强健的数据类型概念、强制性的数据类型声明与程序结构化控制来实现的，当时设计Pascal的初衷是想把这种语言用作程序设计课程的教学工具。Turbo Pascal1983年Borland公司推出了世界闻名的Pascal编译器 - Turbo Pascal，实现了詹森和沃斯（Jensen & Wirth）在 “Pascal User Manual and Report” 中提出的思想 。由于既简洁功能又强，Turbo Pascal成为当时最畅销的编译器之一，而且在PC
3、平台上非常流行。Turbo Pascal中增添了集成开发环境（IDE），在这种开发环境中，你可在与WordStar 兼容的文字编辑器中编辑代码，可以运行编译器，查看编译错误并直接跳回到包含错误的行中。现在听起来上述功能似乎微不足道，但在Turbo Pascal之前你不得不退出代码编辑器返回到DOS，然后运行命令行编译器，记下错误行，再打开编辑器跳至错误行，非常烦琐。此外，Borland公司的Turbo Pascal 售价只49美元 ，而Microsoft公司的 Pascal 编译器售价几百美元。 Turbo Pascal 取得多年的成功应归功于Microsoft最终放弃了Pascal 编译器产
4、品。Delphi中的Pascal随着Turbo Pascal 编译器从第一版发布到第九版，Pascal语言得到了不断的发展，1995年Borland发布了Delphi ，使Pascal成为一种可视化编程语言。Delphi 在很多方面扩展了Pascal语言，其中包括许多面向对象的扩展，这些扩展的风格与Object Pascal有所不同，同时Delphi 也提高了Borland Pascal with Objects 编译器的性能。第二章 编写Pascal代码 进入正题前先谈一下Pascal代码编写风格的问题。“除了遵循语法规则外，你应该怎样来写代码呢?” 关于这个问题各人答案会有不同，因为各人喜
5、欢的风格不同。总的来说，任何编码风格的目标都是使代码清楚、明晰，采用某种风格和格式只是一种简略方法，用于更清楚地表达你的代码要干什么。实现代码清楚明晰的基本原则是保持代码的一致性，也就是无论选用哪种风格，在整个工程中要始终保持同一风格。注释在Pascal中，注释括在大括号中或带星号的圆括号中。Delphi 也认可C+ 风格的注释，即把注释放在双斜线后。例如this is a comment(* this is another comment *)/ this is a comment up to the end of the line第一种注释方式较简略，使用也较为普遍；第二种方式在欧洲使用较
6、广 ，因为欧洲的键盘缺少大括号；第三种方式的注释是从C+借用来的，只在32位版本的Delphi中可用，它在给一行代码加短注释时非常有用。在这本书中我用斜体表示注释，用粗体表示关键词，以此与默认的Delphi语法风格表示一致。上述三种不同的注释方式有益于进行嵌套注释。例如你要注销一段代码，而代码行中又包含真正的注释行，这时采用同一种注释方式是不对的： . codecomment, creating problems. code 正确的方法是插入第二种注释方式： . code/this comment is OK. code 注意：如果左大括号或圆括号-星号后面跟美元符号($)，那么其中的内容就成
7、了编译指令，如 $X+。实际上，编译指令仍是注释。例如，$X+ This is a comment 是合法的。这既是有效的编译指令又是一条注释，尽管明智的程序员很可能会注意把编译指令和注释分开。使用大写字母Pascal 编译器（不象其他语言的编译器）不考虑字符的大小写，因此标识符Myname、 MyName、 myname、 myName、 和MYNAME是完全相同的。总体上来说，这是Pascal的一大优点，因为在大小写敏感的语言中，许多语法错误是由不正确的大写引起的。注意：Pascal语言的大小写不敏感特性有一个例外：控件包中的Register 过程必须以大写字母R开始，因为需要与C+Bui
8、lder 兼容。然而大小写不敏感也有不便之处：第一，你必须注意大小写不一致的标识符实际上是相同的，以避免把他们当成不同的元素使用；第二，你必须尽量保持大写使用的一致性，以提高代码的可读性。大写使用的一致性不是编译器强制要求的，但是保持大写使用的一致性是值得提倡的好习惯。一个常用的方法是将每个标识符的第一个字母大写，标识符若由几个词组合而成(中间不能插入空格)，每个词的第一个字母应大写：MyLongIdentifierMyVeryLongAndAlmostStupidIdentifier此外，编译器不编译代码中的空格、空行和Tab键空格，这些元素通称为空白，它们只用来提高代码的可读性，不影响编译
9、过程。不同于BASIC， Pascal 语句允许分行书写，即将一条长指令分割成两个或更多的代码行。允许语句分行的缺点（至少对许多BASIC程序员）是：语句结束时不能忘了加分号，更确切地说，必须记着把语句和紧接它的语句分开。语句分行唯一的限制是字符串不能跨行。关于空格和语句分行的使用没有既定的规则，以下是几点经验： Delphi 代码编辑器中有一条竖线叫右边线(Right Margin)，你可以把右边线设置在60或70个字符处。如果以这条线为基准，代码不超过这条界限，那么打印到纸上的代码看起来会很好看。否则，打印时长语句会被随意分行，甚至在一个词的中间断开。 当一个函数或过程有多个参数，通常的做
10、法是把各参数放在不同的行上。 你可以在注释行前留一行空白，或把长的代码句分成较小的部分,这样能提高代码的可读性。 用空格隔开函数调用的参数，表达式中的运算符也最好用空格隔开。一些程序员可能会对这些提议不以为然，但我坚持认为：空格是免费的，你不必为使用空格付费，何乐而不为呢？ 优化版面关于代码编写风格的最后一条建议是：尽量使用空白优化版面。这一条很容易做到，只需要在写复合句时，以上一句为参照，下一句向右缩进两个空格，复合句内嵌的复合句缩进四个空格，依此类推。例如：if . then statement;if . thenbegin statement1; statement2;end;if .
11、thenbegin if . then statement1; statement2;end;相似的缩进格式常用于变量或数据类型声名区，也可用于语句的续行：type Letters = set of Char;var Name: string;begin long comment and long statement, going on in the following line and indented two spaces MessageDlg (This is a message, mtInformation, mbOk, 0);提出以上代码编写格式只是向你建个议而已，这样代码能更加易读
12、，其实代码格式并不影响编译结果。在本书的例子和代码段中我始终坚持使用上述代码风格，Delphi 中的源代码、手册和帮助例子均采用了相似的格式化风格。突出Pascal元素 为了使Pascal 代码更易读写，Delphi 编辑器中增加了Pascal 元素的色彩设置功能，也就是编辑器会用不同的颜色表示不同的Pascal 元素。缺省情况下，关键字以粗体表示，字符串和注释用蓝色表示(并且常常是斜体)。用不同色彩显示不同的Pascal 元素对保留字、注释和字符串十分有利，因为着色后你一眼就可以看出拼错的关键字、没有正常结束的字符串及多行注释。使用编辑器环境选项对话框中的色彩(Color)页，很容易就能定制
13、各种Pascal 元素的色彩（见图2.1）。如果独自工作，那么你可随意选择喜欢的颜色。如果是与其他程序员合作，那么应该使用大家统一的标准颜色。我感觉在同一台计算机上使用我不习惯的色彩配置确实很难受。图2.1 编辑环境设置对话框 注意：本书中我选用了一种色彩方案来显示源代码清单，希望能使代码更易读。 使用代码模板Delphi 3 中增加了用于代码编辑的新功能“代码模板”。由于写Pascal 语句时，常常会重复键入相同的一组关键字，为此Borland 公司开发了名为“代码模板”的新功能，代码模板中存放了能与代码缩略形式对应的完整代码，你输入缩略代码，然后按Ctrl+J，完整的代码就出现了。例如，你
14、输入arrayd，然后按Ctrl+J，Delphi 编辑器会把你的文本扩展为：array 0. of ;由于同一种代码结构在预定义的代码模板中通常有多种样式，所以模板中的缩略形式一般加有一个后缀字母，以便你选用。此外，你也可以只输入缩略形式的头几个字母，如你输ar，然后按Ctrl+J，那么，编辑器中会弹出一个菜单，菜单中列出了代码缩略形式选项，见图2.2所示。图2.2 代码模板选项 代码模板可以定制，就是你可以修改已有的模板也可以添加自己常用的代码段。用代码模板输入的代码文本中通常会出现|字符，它表示输入模板代码后光标应跳到的位置，就是说你应该从这个光标位置开始输入，写完这句代码。编程语句标识
15、符一经定义 ，你就可以在语句及组成语句的表达式中使用它们。Pascal 提供了许多语句和表达式，首先来看看关键字、表达式和运算符。关键字关键字是Object Pascal 的保留标识符，在语言中有着特殊含义。保留字不能用作标识符，指令字也同样不应该用作标识符，即使编译器允许也最好不用。在实际中你不应该把任何关键字用作标识符。表2.1是面向对象 Pascal 语言(Delphi 4）中特殊标识符的完整列表，其中包括关键字及保留字。表2.1：面向对象Pascal语言中的关键字及保留字 关键字 作用absolute 指令 (变量)abstract 指令 (方法)and 运算符 (布尔)array 类
16、型as 运算符 (RTTI)asm 语句assembler 向后兼容 (汇编)at 语句 (异常处理)automated 访问类别符 (类)begin 块标记case 语句cdecl 函数调用协定class 类型const 声明或指令(参数)constructor 特殊方法contains 运算符 (集合)default 指令 (属性)destructor 特殊方法dispid dispinterface 界面类别符dispinterface类型div 运算符do 语句downto 语句 (for)dynamic 指令 (方法)else 语句 (if 或 case)end 块标记except
17、语句 (异常处理)export 向后兼容 (类)exports 声明external 指令 (函数)far 向后兼容 (类)file 类型finalization单元结构finally 语句 (异常处理)for 语句forward 函数指令function 声明goto 语句if 语句implementation单元结构implements 指令 (属性)in 运算符 (集合) - 工程结构index 指令 (dipinterface界面)inherited 语句initialization单元结构inline 向后兼容 (见 asm)interface 类型is 运算符 (RTTI)labe
18、l 声明library 程序结构message 指令 (方法)mod 运算符 (数学)name 指令 (函数)near 向后兼容 (类)nil 数值nodefault 指令 (属性)not 运算符 (布尔)object 向后兼容 (类)of 语句 (case)on 语句 (异常处理)or 运算符 (布尔)out 指令 (参数)overload 函数指令override 函数指令package 程序结构 (控件包)packed 指令 (记录)pascal 函数调用协定private 访问类别符 (class)procedure 声明program 程序结构property 声明protected
19、 访问类别符 (类)public 访问类别符 (类)published 访问类别符 (类)raise 语句 (异常处理)read 属性类别符readonly dispatch 界面类别符record 类型register 函数调用协定reintroduce 函数指令repeat 语句requires 程序结构 (控件包)resident 指令 (函数)resourcestring类型safecall 函数调用协定set 类型shl 运算符 (数学)shr 运算符 (数学)stdcall 函数调用协定stored 指令 (属性)string 类型then 语句 (if)threadvar 声明t
20、o 语句 (for)try 语句 (异常处理)type 声明unit 单元结构until 语句uses 单元结构var 声明virtual 指令 (方法)while 语句with 语句write 属性类别符writeonly dispatch 界面类别符xor 运算符 (布尔)表达式和运算符建立表达式没有通用的方法，因为要取决于所用的运算符，Pascal包括有逻辑运算符、算术运算符、布尔运算符、关系运算符和集合运算符等等。表达式可用于确定赋给一个变量的值、计算函数或过程的参数、或者判断一个条件，表达式也可以包含函数调用。表达式是对一个标识符的值而不是标识符本身进行运算。所有编程语言中的表达式都
21、是常量、变量、数值、运算符和函数值的合法组合。表达式可以传递给过程或函数的值参，但不能传递给过程或函数中的引用参数。运算符及其优先级如果你以前写过程序，那么你已经知道表达式是什么了。这里我专门讲一下Pascal 运算符的特殊部分：运算符的优先级。表2.2中按优先级分组列出了Pascal语言的运算符。与大多数编程语言相反，Pascal语言中and和or运算符的优先级比关系运算符高。因此，如果你的代码为a b and c d，编译器首先会编译and运算符，由此导致编译出错。为此你应该把每个 表达式用小括号括起来： (a b) and (c d)。 同一种运算符用于不同数据类型时它的作用不同。例如，
22、运算符 + 可以计算两个数字的和、连接两个字符串、求两个集合的并集、甚至给PChar 指针加一个偏移量。然而，你不能象在C语言中那样将两个字符相加。另一个特殊的运算符是 div。在Pascal 中，你能用 / 计算两个数字（实数或整数）的商，而且你总能得到一个实型结果。如果计算两个整数的商并想要一个整型结果，那么就需要用 div 运算符。表 2.2: Pascal语言中的运算符及其优先级 单目运算符 (最高优先级)取变量或函数的地址(返回一个指针)not逻辑取反或按位取反乘除及按位运算符*相乘或集合交集/浮点相除div整数相除mod取模 (整数相除的余数)as程序运行阶段类型转换 (RTTI运
23、算符)and逻辑或按位求和shl按位左移shr按位右移加减运算符+相加、集合并集、字符串连接或指针增加一个偏移量-相减、集合差集或指针减少一个偏移量or逻辑或按位或运算xor逻辑或按位异或运算关系及比较运算符(最低优先级)=判断是否相等判断是否不相等判断是否大于=判断是否大于或等于,或是否是一个集合的父集in判断是否是集合成员is判断对象是否类型兼容 (又一个RTTI运算符)集合运算符集合运算符包括并（+）、差（-）、交（*）、成员检测（in），及一些关系运算符。要把一个元素添加到集合中，你可以采用集合并运算。下面是一个选择字体的Delphi 例子：Style := Style + fsBol
24、d;Style := Style + fsBold, fsItalic - fsUnderline;另一种方法是利用标准过程Include 和Exclude，它们效率更高（但不能用于控件的集合类型属性，因为只能操纵一个元素）：Include (Style, fsBold);结束语从上面内容我们已经了解了Pascal 程序的基本布局，下面开始探究它的细节。先从预定义和自定义数据类型开始，然后是利用关键词组织编程语句。第三章类型、变量及常量 最初的Pascal 语言是以一些简单的概念为基础建立起来的，这些概念现在普遍出现在编程语言中。最重要的概念当属数据类型，数据类型决定了变量可取的值，以及可在这
25、些值上进行的操作。Pascal 数据类型的概念强于C语言及早期的BASIC语言，在C语言中算术数据类型是可以互换的，而早期的BASIC语言中根本没有与数据类型相似的概念。变量Pascal 变量在使用前必须声明，声明变量时必须指定一种数据类型。下面是变量声明的例子：var Value: Integer; IsCorrect: Boolean; A, B: Char;关键字var可以在许多地方使用，例如放在函数或过程的开始部分，用来声明函数或过程的局部变量；也可以放在单元中，用于声明全程变量。var关键字之后是一组变量名列表，每个变量名后跟一个冒号和数据类型名，一行中可以声明多个变量，如上例中最后
26、一句。一旦变量的类型被指定，你只能对变量执行该变量类型支持的操作。例如，在判断操作中用布尔值，在数字表达式中用整型值，你不能将布尔值和整型值混用（在C语言中可以这样）。使用简单的赋值语句，可写出下面的代码：Value := 10;IsCorrect := True;但下面的语句是不正确的，因为两个变量数据类型不同：Value := IsCorrect; / error在Delphi中编译这句代码，会出现错误信息：Incompatible types: Integer and Boolean.（类型不兼容：整型和布尔型）。象这样的错误通常是编程错误，因为把一个 True 或 False 的值赋给
27、一个整型变量没有什么意义。你不该责怪Delphi 提示这样的错误信息，代码中有不对的地方Delphi当然要提出警告。把变量的值从一种类型转换到另一种类型往往不难做到，有些情况下类型转换会自动实现，不过一般情况下需要调用特殊的系统函数，通过改变数据内部表示来实现类型转换。在Delphi 中，当你声明全程变量时，你可以赋给它一个初值。例如，你可以这样写：var Value: Integer = 10; Correct: Boolean = True;这种初始化方法只能用于全程变量，不能用于过程或方法的变量。常量对于在程序运行期间保持不变的值，Pascal 允许通过常量来声明。声明常量不必特定数据类
28、型，但需要赋一个初值。编译器会根据所赋初值自动选用合适的数据类型。例如：const Thousand = 1000; Pi = 3.14; AuthorName = Marco Cant;Delphi 根据常量的值来决定它的数据类型。上例中的Thousand 变量，Delphi会选用SmallInt数据类型 (短整型-能容纳Thousand变量的最小整数类型)。如果你想告诉Delphi 采用特定的类型，你可在声明中加入类型名，方法如下：const Thousand: Integer = 1000;对于声名的常量，编译器有两种编译选择：第一种为常量分配内存，并把常量的值放入内存；第二种在常量每次
29、使用时复制常量值。第二种方法比较适合简单常量。注意：16位的Delphi 允许你在程序运行期间改变已定义的常量值，就象一个变量一样。32位的Delphi为了向后兼容仍容许这种操作，只要你附加 $J 编译指令，或选择工程选项对话框中Compiler (编译器) 页的Assignable typed constants复选框就行。尽管如此，这里我还是要强烈建议万不得以不要使用上述操作，因为把新值赋给常量将使编译器不能对常量进行优化，与其如此不如直接声明一个变量。资源串常量当定义字符串常量时，你可这样写：const AuthorName = Marco Cant;从Delphi 3 开始，你可以用另
30、一种方式写：resourcestring AuthorName = Marco Cant;上面两个语句都定义了一个常量，也就是定义了一个在程序运行期间保持不变的值，但两者的实现过程却不同，用resourcestring 指令定义的字符串变量将被保存到程序资源的字符串表中。从例子ResStr你可了解资源串的实际作用，例子中设置了一个按钮, 相应代码如下：resourcestring AuthorName = Marco Cant; BookName = Essential Pascal;procedure TForm1.Button1Click(Sender: TObject);begin ShowMessage (Book
