2011计算机等级考试Delphi面向对象的编程方法

　　2.1.9 定义新的数据类型

　　Object Pascal有一些系统预定义的数据类型，在2.1.2中已经对它们作了介绍。您可以利用这些数据类型以建立新的数据类型来满足程序的特定需要。下面简单地叙述了您能建立的主要数据类型，如枚举型、子界型、数组型、集合型、记录型、对象型等。

　　2.1.9.1 枚举类型

　　一个枚举型的说明列出了所有这种类型可以包括的值：

　　type

　　Tdays=( Sunday ,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday);

　　可以定义上述枚举类型的变量：

　　var

　　DayOfWeek:TDays;

　　在枚举型中，括号中的每一个值都有一个由说明它的位置决定的整形值。例如Sunday有整形值0，Monday有整形值1等。您可以把DayOfWeek说明为一个整形变量，并将一星期的每一天赋一个整形值以达到相同的效果，但用枚举型会使得程序可读性好，编写容易。当您在枚举型中列出值时，您同时说明了这个值是一个标识符。例如您的程序中如果已经含有TDays类型且说明了DayOfWeeks变量，则程序中便不能使用Monday变量，因为它已经被说明为标识符了。

　　2.1.9.2 子界类型

　　子界型是下列这些类型中某范围内的值：整形、布尔量、字符型或枚举型。在您想限制一个变量的取值范围时，子界型是非常有用的。

　　type

　　Thours = 0..23;

　　TValidLetter = 'A' .. 'F';

　　TDays = ( Sunday ,Monday,Tuesday,Wednesday,Thursday,

　　Friday,Saturday); {枚举型}

　　TWorkDay = Monday..Friday; {一个TDays型的子界}

　　子界型限定了变量的可能取值范围。当范围检查打开时，(在库单元的Implementation后面有{$R*.DFM}字样表示范围检查打开，否则您可以在Options|Project|Complier Options中选择Range Cheking来打开范围检查)，如果变量取到子界以外的值，会出现一个范围检查错误。

　　2.1.9.3 数组类型

　　数组是某种数据类型的有序组合，其中每一个元素的值由其相对位置来指定，您可以在数组的某个位置上放置数据，并在需要时使用这些数据。下面的类型说明了一个Double型的数组变量：

　　var

　　Check : array [1..10] of Double;

　　它表示Check指向一个含有10个Double型元素的数据串列，代表每一个元素的是1到10之间的数字，称为索引。数组的每一项由数组名称加上[]中的索引来表示。Check包含10个变量，Check[1]表示第一个变量。您也可以把数组定义成类型：

　　type

　　TCheck = array[1..10] of Double;

　　则变量说明改为：

　　var

　　Check :TCheck;

　　您可以通过给数组赋值等方法来使用数组。下面的语句将0.0赋给Check数组中的所有元素：

　　for J := 1 to 10 do

　　Check[J] := 0.0;

　　数组也可以是多维的，下面的类型定义了一个20行、20列的数组。

　　type

　　Ttable = array[1..20,1..20] of Double;

　　var

　　table1:TTable;

　　想将这一表格的所有数据初始化为0.0，您可以使用for循环：

　　var

　　Col,Row:Integer;

　　…

　　for Col :=1 to 20 do

　　for Row := 1 to 20 do

　　Table1[Col,Row] := 0.0;

　　2.1.9.4 字符串类型

　　字符串类型事实上是一个一维的字符数组。当您说明一个字符串型的变量时，您应当指明这个字符串的大小，下面是说明字符串类型的例子：

　　type

　　MyString: string[15];

　　var

　　MyName: MyString;

　　则变量MyName被说明成为最多可以包含15个字符。如果您没有说明字符串的大小，Delphi会认为字符串包含最大值255个字符。给字符串赋值可以直接使用单引号括起的字串赋值：

　　MyName := 'Frank.Smith';

　　或MyName := '张明';

　　因为MyName是一个可以包含15个字符的MyString型变量，上文的两个的变量都是有效的，一个汉字可以视作两个字符。当您给字符串型变量赋的值多于定义数值时，例如将MyName赋为‘FrankSmith.Franklin’，则Delphi只会接受前15个字符‘FrankSmith.Fran’。在内存中，字符串通常占用比所说明的大小多一个字节的空间，因为第一个位置是一个包含这个数组大小的字节。您可以使用索引值来访问字符串的字符，MyName[1]可以得到MyName的第一个字符'F'。

　　您可以使用Delphi丰富的运算符、过程和函数来处理字符串型的变量和属性。下面介绍几个常用的运算符和Delphi过程或函数：

　　Concat和(+)功能相同，都可以将多个字符串组合在一起，建立一个较大的字符串;Copy会返回一个字符串中的子字符串;Delete在一个字符串中从一个指定位置起删除一定数目的字符;Insert在一个字符串中插入一个字符串;Length返回字符串的长度;Pos返回一个子字符串在一个字符串中的位置，即索引值。