Delphi语法基础

DELPHI语法基础
注释
在Pascal中，注释括在大括号中或带星号的圆括号中。

Delphi 也认可C++ 风格的注释，即把注释放在双斜线后。

例如
{this is a comment}
(* this is another comment *)
// this is a comment up to the end of the line
第一种注释方式较简略，使用也较为普遍；第二种方式在欧洲使用较广，因为欧洲的键盘缺少大括号；第三种方式的注释是从C++借用来的，只在32位版本的Delphi中可用，它在给一行代码加短注释时非常有用。

上述三种不同的注释方式有益于进行嵌套注释。

例如你要注销一段代码，而代码行中又包含真正的注释行，这时采用同一种注释方式是不对的：
{ ... code
{comment, creating problems}
... code }
正确的方法是插入第二种注释方式：
{ ... code
//this comment is OK
... code }
注意：如果左大括号或圆括号-星号后面跟美元符号($)，那么其中的内容就成了编译指令，如{$X+}。

使用大写字母
Pascal 编译器（不象其他语言的编译器）不考虑字符的大小写，因此标识符Myname、MyName、myname、myName、和MYNAME是完全相同的。

总体上来说，这是Pascal 的一大优点，因为在大小写敏感的语言中，许多语法错误是由不正确的大写引起的。

然而大小写不敏感也有不便之处：第一，你必须注意大小写不一致的标识符实际上是相同的，以避免把他们当成不同的元素使用；第二，你必须尽量保持大写使用的一致性，以提高代码的可读性。

大写使用的一致性不是编译器强制要求的，但是保持大写使用的一致性是值得提倡的好习惯。

一个常用的方法是将每个标识符的第一个字母大写，标识符若由几个词组合而成(中间不能插入空格)，每个词的第一个字母应大写：
MyLongIdentifier
MyVeryLongAndAlmostStupidIdentifier
此外，编译器不编译代码中的空格、空行和Tab键空格，这些元素通称为空白，它们只用来提高代码的可读性，不影响编译过程。

不同于BASIC，Pascal 语句允许分行书写，即将一条长指令分割成两个或更多的代码行。

允许语句分行的缺点（至少对许多BASIC程序员）是：语句结束时不能忘了加分号，更确切地说，必须记着把语句和紧接它的语句分开。

语句分行唯一的限制是字符串不能跨行。

关于空格和语句分行的使用没有既定的规则，以下是几点经验：
•Delphi 代码编辑器中有一条竖线叫右边线(Right Margin)，你可以把右边线设置在60或70个字符处。

如果以这条线为基准，代码不超过这条界限，那么打印到纸上的代码
看起来会很好看。

否则，打印时长语句会被随意分行，甚至在一个词的中间断开。

•当一个函数或过程有多个参数，通常的做法是把各参数放在不同的行上。

•你可以在注释行前留一行空白，或把长的代码句分成较小的部分,这样能提高代码的可读性。

•用空格隔开函数调用的参数，表达式中的运算符也最好用空格隔开。

优化版面
关于代码编写风格的最后一条建议是：尽量使用空白优化版面。

这一条很容易做到，只需要在写复合句时，以上一句为参照，下一句向右缩进两个空格，复合句内嵌的复合句缩进四个空格，依此类推。

例如：
if ... then
statement;
if ... then
begin
statement1;
statement2;
end;
if ... then
begin
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);
提出以上代码编写格式只是向你建个议而已，这样代码能更加易读，其实代码格式并不影响编译结果。

关键字
关键字是Object Pascal 的保留标识符，在语言中有着特殊含义。

保留字不能用作标识符，指令字也同样不应该用作标识符，即使编译器允许也最好不用。

在实际中你不应该把任何关键字用作标识符。

表2.1是面向对象Pascal 语言(Delphi 4）中特殊标识符的完整列表，其中包括关键字及保留字。

表2.1：面向对象Pascal语言中的关键字及保留字
absolute 指令(变量)
abstract 指令(方法)
and 运算符(布尔)
array 类型
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 语句(异常处理) export 向后兼容(类)
exports 声明
external 指令(函数)
far 向后兼容(类)
file 类型
finalization 单元结构
finally 语句(异常处理)
for 语句
forward 函数指令
function 声明
goto 语句
if 语句implementation 单元结构implements 指令(属性)
in 运算符(集合) - 工程结构index 指令(dipinterface界面) inherited 语句
initialization 单元结构
inline 向后兼容(见asm) interface 类型
is 运算符(RTTI)
label 声明
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 访问类别符(类) public 访问类别符(类) published 访问类别符(类) raise 语句(异常处理) read 属性类别符readonly dispatch 界面类别符record 类型
register 函数调用协定reintroduce 函数指令
repeat 语句
requires 程序结构(控件包) resident 指令(函数) resourcestring 类型
safecall 函数调用协定
set 类型
shl 运算符(数学)
shr 运算符(数学) stdcall 函数调用协定stored 指令(属性)
string 类型
then 语句(if)
threadvar 声明
to 语句(for)
try 语句(异常处理)
type 声明
unit 单元结构
until 语句
uses 单元结构
var 声明
virtual 指令(方法)
while 语句
with 语句
write 属性类别符
writeonly dispatch 界面类别符
xor 运算符(布尔)
表达式和运算符
建立表达式没有通用的方法，因为要取决于所用的运算符，Pascal包括有逻辑运算符、算术运算符、布尔运算符、关系运算符和集合运算符等等。

表达式可用于确定赋给一个变量的值、计算函数或过程的参数、或者判断一个条件，表达式也可以包含函数调用。

表达式是对一个标识符的值而不是标识符本身进行运算。

所有编程语言中的表达式都是常量、变量、数值、运算符和函数值的合法组合。

表达式可以传递给过程或函数的值参，但不能传递给过程或函数中的引用参数。

运算符及其优先级
如果你以前写过程序，那么你已经知道表达式是什么了。

这里我专门讲一下Pascal 运算符的特殊部分：运算符的优先级。

表2.2中按优先级分组列出了Pascal语言的运算符。

与大多数编程语言相反，Pascal语言中and和or运算符的优先级比关系运算符高。

因此，如果你的代码为a < b and c < d，编译器首先会编译and运算符，由此导致编译出错。

为此你应该把每个< 表达式用小括号括起来：(a < b) and (c < d)。

同一种运算符用于不同数据类型时它的作用不同。

例如，运算符+ 可以计算两个数字的和、连接两个字符串、求两个集合的并集、甚至给PChar 指针加一个偏移量。

然而，你不能象在C 语言中那样将两个字符相加。

另一个特殊的运算符是div。

在Pascal 中，你能用/ 计算两个数字（实数或整数）的商，而且你总能得到一个实型结果。

如果计算两个整数的商并想要一个整型结果，那么就需要用div 运算符。

表2.2: Pascal语言中的运算符及其优先级
@ 取变量或函数的地址(返回一个指针)
not 逻辑取反或按位取反
* 相乘或集合交集
/ 浮点相除
div 整数相除
mod 取模(整数相除的余数)
as 程序运行阶段类型转换(RTTI运算符)
and 逻辑或按位求和
shl 按位左移
shr 按位右移
+ 相加、集合并集、字符串连接或指针增加一个偏移量- 相减、集合差集或指针减少一个偏移量
or 逻辑或按位或运算
xor 逻辑或按位异或运算
= 判断是否相等
<> 判断是否不相等
< 判断是否小于
> 判断是否大于
<= 判断是否小于或等于,或是否是一个集合的子集
>= 判断是否大于或等于,或是否是一个集合的父集
in 判断是否是集合成员
is 判断对象是否类型兼容(又一个RTTI运算符)
集合运算符
集合运算符包括并（+）、差（-）、交（*）、成员检测（in），及一些关系运算符。

要把一个元素添加到集合中，你可以采用集合并运算。

下面是一个选择字体的Delphi 例子：Style := Style + [fsBold];
Style := Style + [fsBold, fsItalic] - [fsUnderline];
另一种方法是利用标准过程Include 和Exclude，它们效率更高（但不能用于控件的集合类型属性，因为只能操纵一个元素）：
Include (Style, fsBold);
变量
Pascal 变量在使用前必须声明，声明变量时必须指定一种数据类型。

下面是变量声明的例子：
var
Value: Integer;
IsCorrect: Boolean;
A, B: Char;
关键字var可以在许多地方使用，例如放在函数或过程的开始部分，用来声明函数或过程的局部变量；也可以放在单元中，用于声明全程变量。

var关键字之后是一组变量名列表，每个变量名后跟一个冒号和数据类型名，一行中可以声明多个变量，如上例中最后一句。

一旦变量的类型被指定，你只能对变量执行该变量类型支持的操作。

例如，在判断操作中用布尔值，在数字表达式中用整型值，你不能将布尔值和整型值混用（在C语言中可以这样）。

使用简单的赋值语句，可写出下面的代码：
Value := 10;
IsCorrect := True;
但下面的语句是不正确的，因为两个变量数据类型不同：
Value := IsCorrect; // error
在Delphi中编译这句代码，会出现错误信息：Incompatible types: 'Integer' and
'Boolean'.（类型不兼容：‘整型’和‘布尔型’）。

象这样的错误通常是编程错误，因为把一个True 或False的值赋给一个整型变量没有什么意义。

你不该责怪Delphi 提示这样的错误信息，代码中有不对的地方Delphi当然要提出警告。

把变量的值从一种类型转换到另一种类型往往不难做到，有些情况下类型转换会自动实现，不过一般情况下需要调用特殊的系统函数，通过改变数据内部表示来实现类型转换。

在Delphi 中，当你声明全程变量时，你可以赋给它一个初值。

例如，你可以这样写：var
Value: Integer = 10;
Correct: Boolean = True;
这种初始化方法只能用于全程变量，不能用于过程或方法的变量。

常量
对于在程序运行期间保持不变的值，Pascal 允许通过常量来声明。

声明常量不必特定数据类型，但需要赋一个初值。

编译器会根据所赋初值自动选用合适的数据类型。

例如：
const
Thousand = 1000;
Pi = 3.14;
AuthorName = 'Marco Cantù';
Delphi 根据常量的值来决定它的数据类型。

上例中的Thousand 变量，Delphi会选用SmallInt数据类型(短整型--能容纳Thousand变量的最小整数类型)。

如果你想告诉Delphi 采用特定的类型，你可在声明中加入类型名，方法如下：
const
Thousand: Integer = 1000;
对于声名的常量，编译器有两种编译选择：第一种为常量分配内存，并把常量的值放入内存；第二种在常量每次使用时复制常量值。

第二种方法比较适合简单常量。

注意：16位的Delphi 允许你在程序运行期间改变已定义的常量值，就象一个变量一样。

32位的Delphi为了向后兼容仍容许这种操作，只要你附加$J编译指令，或选择工程选项对话框中Compiler (编译器) 页的Assignable typed constants复选框就行。

资源串常量
当定义字符串常量时，你可这样写：
const
AuthorName = 'Marco Cantù';
从Delphi 3 开始，你可以用另一种方式写：
resourcestring
AuthorName = 'Marco Cantù';
上面两个语句都定义了一个常量，也就是定义了一个在程序运行期间保持不变的值，但两者的实现过程却不同，用resourcestring指令定义的字符串变量将被保存到程序资源的字符串表中。

从例子ResStr你可了解资源串的实际作用，例子中设置了一个按钮, 相应代码如下：resourcestring
AuthorName = 'Marco Cantù';
BookName = 'Essential Pascal';
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage (BookName + #13 + AuthorName);
end;
以上代码中的两个字符串将分两行输出显示，因为字符串被分行符#13隔开。

有趣的是，当你用资源编辑器打开执行文件时，你会在程序资源中看到你所定义的字符串。

这意味着字符串并没有进入编译代码，而是保存在执行文件(EXE文件) 的一个单独区域。

注意：简而言之，采用资源的好处一方面可让Windows 来完成有效的内存处理，另一方面不用更改源代码就可实现程序的本地化(把字符串翻译成不同的语言)。

数据类型
Pascal 中有多种预定义的数据类型，它们可分为三大类：有序数据类型，实数类型和字符串类型。

Delphi 还包括一种无类型的可变数据类型，称作variant，variant是一种无需类型检测的数据类型，它在Delphi 2 中引入，用于处理OLE Automation（OLE 自动化）。

有序类型
有序类型是建立在概念“顺序”或“序列”基础上的数据类型。

你不仅可比较两个有序值的大小，而且可以求取给定有序值的前驱及后继，或者计算它们的最大或最小值。

三种最重要的预定义有序类型是整数类型、布尔类型和字符类型（Integer,Boolean,Char)。

各种类型根据其内部表示和取值范围不同又可进一步细分。

表3.1列出了表示数字的有序数据类型。

表3.1: 表示数字的有序数据类型
8 bits ShortInt
-128 to 127
Byte
0 to 255
16 bits SmallInt
-32768 to 32767
Word
0 to 65,535
32 bits LongInt
-2,147,483,648 to 2,147,483,647
LongWord (从Delphi 4)
0 to 4,294,967,295
64 bits Int64
16/32 bits Integer Cardinal
从表中可看到，不同数据类型与不同的数据表示法相对应，这要取决于数据值的数位和符号位。

有符号类型的数值可正可负，但取值范围较小，因为符号位占一个数位。

下一节在例Range 中说明了每种类型的实际取值范围。

表中最后一组类型标志着16/32，它表明其数值表示方法在16位和32位Delphi中不同，该组的Integer及Cardinal 类型比较常用，因为它们与CPU内部的数字表示法相对应。

布尔类型
布尔值不同于布尔类型，平时很少用到。

ByteBool、WordBool 和LongBool这三种布尔类型的布尔值比较特殊，只在Windows API 函数中才用到它们。

在Delphi 3 中，为了与Visual Basic 和OLE Automation兼容，修改了ByteBool、WordBool 和LongBool的布尔值，将TRUE值设置为1，FALSE值仍为0；Boolean类型布
尔值保持不变（TRUE为1，FALSE为0）。

如果在Delphi 2代码中使用了布尔值显式类型转换，那么在以后的Delphi中可能会出错。

字符类型
字符有两种不同的表示法：: ANSIChar和WideChar。

第一种类型代表8 位的字符，与Windows一直沿用的ANSI（美国国家标准协会）字符集相应；第二种类型代表16 位的字符，与Windows NT、Windows 95 和98支持的双字节字符（Unicode）相应。

在Delphi 3 中，Char 类型字符与ANSIChar一致。

切记，不管在什么环境，前256 个Unicode 字符与ANSI 字符是完全一致的。

常量字符可用代表它们的符号表示，如‘k’，也可用数字符号表示，如#78。

后者还可用Chr 函数表示为Chr(78)，用Ord函数可作相反的转换Ord(k)。

一般来说，对字母、数字或符号，用代表它们的符号来表示较好；而涉及到特殊字符时用数字符号较好。

下面列出了常用的特殊字符：
•#9跳格(Tab 键)
•#10换行
•#13回车(Enter 键)
序类型系统例程
Pascal 语言和Delphi System 单元中定义了一系列有序类型操作例程，见表3.2。

C++ 程序员会注意到其中的Inc 例程，它可与++ 和+= 运算符对应（Dec 例程也同样）。

表3.2: 有序类型系统例程
Dec 将例程中的参数值递减1或一个特定的值，其中特定值可在第二个可选参数中定义
Inc 将例程中的参数值增加1或一个特定的值
Odd 如果参数为奇数返回真
Pred 根据参数在其数据类型定义中的序列，返回参数值的前驱值
Succ 返回参数值的后继值
Ord 返回参数值在其数据类型值集合中的序号
Low 返回参数对应的有序数据类型的最小取值
High 返回参数对应的有序数据类型的最大取值
注意，当有些例程用于常量时，编译器会自动用计算值替代例程。

例如你调用High(X) ，设定X为一个整数，那么编译器会用整数类型中最大的可能值代替这个表达式。

实数类型
实数类型代表不同格式的浮点数。

Single类型占的字节数最小，为4个字节；其次是Double 浮点类型，占8个字节；Extended浮点类型，占10个字节。

这些不同精度的浮点数据类型都
与IEEE（电气和电子工程师协会）标准的浮点数表示法一致，并且CPU数字协处理器直接支持这些类型，处理速度也最快。

Real类型在Delphi 2 和Delphi 3 中的定义与16 位版本一样，都占6 个字节。

不过Borland公司一直不提倡使用这种类型，而建议用Single、Double、Extended 类型代替。

这是由于Real这种6 字节的旧格式既不受Intel CPU 的支持，又没有列在官方的IEEE 实型中。

为了完全解决这一问题，Delphi 4 不得不修改Real类型的定义，将其改成标准的8 字节浮点型，由此引起了兼容性问题，不过如果有必要，你可以采用下面编译指令克服兼容性问题，恢复Delphi 2 和Delphi 3 的Real类型定义：
{$REALCOMPATIBILITY ON}
另外还有两种奇怪的数据类型：Comp类型和Currency类型，Comp类型用8 个字节描述非常大的整数（这种类型可支持带有18 位小数的数字）；Currency类型(16 位版的Delphi不支持该类型) 表示一个有四位小数位的值，它的小数位长度是固定的，同Comp 类型一样也占8 个字节。

正如名字所示，Currency 数据类型是为了操作很精确的四位小数货币数值才添加的。

对实型数据，我们没办法编一个类似Range的程序，因为High 、Low及Ord函数不能用于实型值。

理论上说实型类型代表一个无限的数字集合；有序类型代表一个有限的数字集合。

注意：让我进一步把上述问题解释一下。

对于整数23，你能确定23 后面的数是什么，因为整型数是有限的，它们有确定的值域范围及排列顺序。

而浮点数即使在一个很小的值域范围内也无限、无序。

事实上，在23 和24 之间有多少值? 哪个值是23.46 后面的值? 23.47 还是23.461，或者23.4601? 这是很难说清的。

因此，如问Char 类型字符w的顺序位置是有意义的，但同样的问题对浮点类型数7134.1562 就毫无意义。

对于一个实型数，你能确切知道有没有比它大的实型数，但是，如想探究给定的实数前到底有多少个实型数（这是Ord函数的作用），是得不到结果的。

实型类型在用户界面编程中用得不多，但是Delphi从各方面支持实型类型，包括在数据库方面的支持。

由于支持IEEE浮点数运算标准，Object Pascal 语言完全适合于各类数值计算编程。

如果对这部分感兴趣，你可以参考Delphi 在System单元中提供的算术函数（详细见Delphi 帮助）。

注意：Delphi 带有一个Math单元，其中定义了一些高级数学例程，这些例程包括三角函数（如ArcCosh函数）、金融函数（如InterestPayment函数）和统计函数（如MeanAndStdDev过程）。

有些例程，它的名字听起来很怪，如MomentSkewKurtosis例程，它是作什么用的呢? 还是留你自己查吧。

日期和时间
Delphi 也用实型数表示日期和时间数据。

但为了更准确起见，Delphi 特别定义了TDateTime数据类型，这是一个浮点类型，因为这个类型必须足够宽，使变量能容纳年、月、日、时、分和秒、甚至毫秒。

日期值按天计数，从1899-12-30开始，放在TDateTime 类型的整数部分；时间值则位于十进制数的小数部分。

TDateTime 不是编译器可直接识别的预定义类型，它在System单元定义：
type
TDateTime = type Double;
使用TDateTime 类型很简单，因为Delphi 为该类型定义了一系列操作函数，表3.3列出了这些函数。

表3.3: TDateTime类型系统例程
Now 返回当前日期及时间
Date 返回当前日期
Time 返回当前时间
DateTimeToStr 按缺省格式将日期和时间值转换为字符串；特定格式转换可用FormatDateTime函数
DateTimeToString 按缺省格式将日期和时间值拷贝到字符串缓冲区DateToStr 将TDateTime值的日期部分转为字符串TimeToStr 将TDateTime值的时间部分转为字符串FormatDateTime 按特定格式将日期和时间值转换为字符串
StrToDateTime 将带有日期和时间信息的字符串转换为TdateTime类型值，如串有误将引发一个异常
StrToDate 将带有日期信息的字符串转换为TDateTime类型格式
StrToTime 将带有时间信息的字符串转换为TDateTime类型格式
DayOfWeek 根据传递的日期参数计算该日期是一星期中的第几天
DecodeDate 根据日期值返回年、月、日值
DecodeTime 根据时间值返回时、分、秒、毫秒值
EncodeDate 组合年、月、日值为TDateTime类型值
EncodeTime 组合时、分、秒、毫秒值为TDateTime类型值
类型映射及类型转换
正如所知，你不能把一个变量赋给另一个不同类型的变量，如果你需要这么做，有两种方法供选择。

第一种方法是采用类型映射（Typecasting），它使用一个带有目标数据类型名的函数符号：
var
N: Integer;
C: Char;
B: Boolean;
begin
N := Integer ('X');
C := Char (N);
B := Boolean (0);
你可以在字节长度相同的数据类型之间进行类型映射。

在有序类型之间或实型数据之间进行类型映射通常是安全的，指针类型及对象之间也可以进行类型映射，只要你明白自己在做什么。

然而，一般来说类型映射是一种较危险的编程技术，因为它允许你访问一个似是而非的值，该值好象是其它值的替身。

由于数据类型的内部表示法之间通常互相不匹配，所以当遇到错误时会难以追踪，为此你应尽量避免使用类型映射。

第二种方法是使用类型转换例程。

表3.4中总结了各种类型转换例程。

注意表中没有包括特殊类型（如TDateTime 和variant）的转换例程，也没包括用于格式化处理的特殊例程，如Format和FormatFloat例程。

表3.4：类型转换系统例程
Chr 将一个有序数据转换为一个ANSI字符
Ord 将一个有序类型值转换为它的序号
Round 转换一个实型值为四舍五入后的整型值
Trunc 转换一个实型值为小数截断后的整型值
Int 返回浮点数的整数部分
IntToStr 将数值转换为字符串
IntToHex 将数值转换为十六进制数字符串
StrToInt 将字符串转换为一个整型数，如字符串不是一个合法的整型将引发异常StrToIntDef 将字符串转换为一个整数，如字符串不合法返回一个缺省值
Val 将字符串转换为一个数字（传统Turbo Pascal例程用于向后兼容）
Str 将数字转换为格式化字符串（传统Turbo Pascal例程用于向后兼容）
StrPas 将零终止字符串转换为Pascal类型字符串，在32位Delphi中这种类型转换是自动进行的
StrPCopy 拷贝一个Pascal类型字符串到一个零终止字符串, 在32位Delphi中这种类型转换是自动进行的
StrPLCopy 拷贝Pascal类型字符串的一部分到一个零终止字符串FloatToDecimal 将一个浮点数转换为包含指数、数字及符号的十进制浮点记录类型FloatToStr 将浮点值转换为缺省格式的字符串
FloatToStrF 将浮点值转换为特定格式的字符串
FloatToText 使用特定格式，将一个浮点值拷贝到一个字符串缓冲区
FloatToTextFmt 同上面例程，使用特定格式，将一个浮点值拷贝到一个字符串缓冲区StrToFloat 将一个Pascal字符串转换为浮点数
TextToFloat 将一个零终止字符串转换为浮点数
注意：一般来说，你应该避免使用上述不命名类型，因为你不能把它们作为参数传给例程，也不能用于声名同一类型的其他变量。

实际上，Pascal的类型兼容规则是基于类型名的，而不是基于实际的类型定义。

两个类型相同的变量仍有可能是不兼容的，除非他们的类型有完全相同的名字。

对于不命名类型，需要编译器给它分配一个内部名字，因此对于数据结构复杂的变量，要习惯于定义命名数据类型，你一定不会为此白费工夫的。

子界类型
子界类型定义了某种类型的取值范围（因此定名subrange）。

你可定义整数类型的子界类型，如取值从1到10或从100到1000，或者定义字符类型的子界类型，如下所示：
type
Ten = 1..10;
OverHundred = 100..1000;
Uppercase = 'A'..'Z';
定义子界类型时，你不需要指定基类的名字，而只需提供该类型的两个常数。

所用基类必须是有序类型，定义结果将是另一种有序类型。

如定义一个子界变量，那么赋给该变量的值必须是子界定义范围内的值。

下面代码是正确的：
var
UppLetter: UpperCase;
begin
UppLetter := 'F';
以下代码则是不正确的:
var
UppLetter: UpperCase;
begin
UppLetter := 'e'; // compile-time error
以上代码将导致一个编译错误：“Constant expression violates subrange bounds”。

如果代之以下面代码：
var
UppLetter: Uppercase;
Letter: Char;
begin
Letter :='e';
UppLetter := Letter;
Delphi 编译会通过，但在运行时，如果你开启了范围检查编译选项（在工程选项对话框的编译器页设置），你将得到Range check error（范围检测错误）信息。

注意：建议你在开发程序时开启上述编译选项，以使程序更健壮并易于调试。

这样即使遇上错误，你也会得到一个明确的信息而不是难以琢磨的行为。

最终完成程序时你可以去掉这个选项，使程。