FloatToStrF FloatToText 将浮点值转换为特定格式的字符串 使用特定格式，将一个浮点值拷贝到一个字符串缓冲区 FloatToTextFmt 同上面例程，使用特定格式，将一个浮点值拷贝到一个字符串缓冲区 StrToFloat TextToFloat 将一个Pascal字符串转换为浮点数 将一个零终止字符串转换为浮点数 注意：在最近版本的Delphi Pascal 编译器中，Round 函数是以 CPU 的 FPU (浮点部件) 处理器为基础的。这种处理器采用了所谓的 \银行家舍入法\，即对中间值 (如 5.5、6.5) 实施Round函数时，处理器根据小数点前数字的奇、偶性来确定舍入与否，如 5.5 Round 结果为 6，而 6.5 Round 结果也为6, 因为 6 是偶数。 Pascal 语言的一个重要特征是它能自定义数据类型。通过各种类型构造器，你可以定义自己的数据类型，如子界类型、数组类型、记录类型、枚举类型、指针类型和集合类型。最重要的用户定义数据类型是类（class），类是Object Pascal的面向对象扩展部分。
命名及不命名的类型
为了后续使用或直接用于变量，需要给自定义类型命名。如果自定义一个命名的类型，你必须将代码放在特定的type区，如下所示： type
// subrange definition Uppercase = 'A'..'Z';
// array definition
Temperatures = array [1..24] of Integer;
// record definition Date = record Month: Byte; Day: Byte; Year: Integer; end;
// enumerated type definition
Colors = (Red, Yellow, Green, Cyan, Blue, Violet);
// set definition Letters = set of Char;
你也可使用类型定义构造器直接定义一个变量，此时无需显式命名，如下面的代码：
16
var
DecemberTemperature: array [1..31] of Byte; ColorCode: array [Red..Violet] of Word; Palette: set of Colors;
注意：一般来说，你应该避免使用上述不命名类型，因为你不能把它们作为参数传给例程，也不能用于声名同一类型的其他变量。实际上，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
17
UppLetter: Uppercase; Letter: Char; begin
Letter :='e'; UppLetter := Letter;
Delphi 编译会通过，但在运行时，如果你开启了范围检查编译选项（在工程选项对话框的编译器页设置），你将得到 Range check error （范围检测错误）信息。
注意：建议你在开发程序时开启上述编译选项，以使程序更健壮并易于调试。这样即使遇上错误，你也会得到一个明确的信息而不是难以琢磨的行为。最终完成程序时你可以去掉这个选项，使程序运行得快一些，不过影响很小。因此我建议你开启所有运行时的检测选项，如溢出检查和堆栈检查，甚至提交程序时仍然保留它们。 枚举类型
枚举类型又是一种自定义有序类型。在枚举类型中,你列出所有该类型可能取的值，而不是指定现有类型的范围。换句话说，枚举类型是个可取值的序列。见下例： type
Colors = (Red, Yellow, Green, Cyan, Blue, Violet); Suit = (Club, Diamond, Heart, Spade);
序列中每个值都对应一个序号，序号从0开始计数。使用Ord 函数，即可得到一个枚举类型值的序号。例如，Ord (Diamond) 返回值1。
注意：枚举类型有多种内部表示法。缺省时，Delphi 用8位表示法；如果有多于256个不同的值，则用16位表示法。还有一种32位表示法，需要与C、C++库兼容时会用到。使用$Z 编译指令可改变缺省设置，请求更多位的表示法。 集合类型
集合类型表示一组值，该组值由集合所依据的有序类型定义。定义集合的常用有序类型不多，一般为枚举类型或子界类型。如果子界类型取值为1..3，那么基于它的集合类型值可以是1、或2、或3、或1和2、或1和3、或2和3、或取所有3个数、或一个数也没有。
一个变量通常包含该类型对应的一个值，而集合类型可以不包含值、包含一个值、两个值、三个值，或更多，它甚至可以包含定义范围内所有的值。下面定义一个集合： type
Letters = set of Uppercase;
18
现在我可以用上面类型来定义变量，并把原始类型的值赋给变量。为了在集合中表示一组值，需要用逗号将值隔开，最后用方括号结尾。下例显示了多值、单值和空值的变量赋值： var
Letters1, Letters2, Letters3: Letters; begin
Letters1 := ['A', 'B', 'C']; Letters2 := ['K']; Letters3 := [];
在Delphi中，集合一般用于表示有多种选择的标记。例如下面两行代码（摘自Delphi库）声明了一个枚举类型，其中列出了窗口条上可选的图标，并声明了相应的集合类型： type
TBorderIcon = (biSystemMenu, biMinimize, biMaximize, biHelp); TBorderIcons = set of TBorderIcon;
实际上，给定的窗口中可以没有图标，也可以有一个或多个图标。用Object Inspector设置时（见图4.3），双击属性名，或单击属性左边的加号，自行选择，从而添加或删除集合中的值。
图 4.3: Object Inspector中的集合类型属性
另一个基于集合类型的属性是字体。字体类型值可以是粗体、斜体、带下画线、带删除线等，一种字型可以既是斜体又是粗体，也可以没有属性，或者带有全部的属性。因此用集合类型来表示它。你可以象下面代码那样，在程序中给集合赋值： Font.Style := []; // no style
Font.Style := [fsBold]; // bold style only Font.Style := [fsBold, fsItalic]; // two styles
你也能对一个集合进行许多不同方式的操作，包括把两个相同类型的集合变量相加（或更准确地说，计算两个集合变量的并集）：
Font.Style := OldStyle + [fsUnderline]; // two sets
19
数组类型
数组类型定义了一组指定类型的元素序列，在方括号中填入下标值就可访问数组中的元素。定义数组时，方括号也用来指定可能的下标值。例如，下面的代码中定义了一个有24个整数的数组： type
DayTemperatures = array [1..24] of Integer;
在数组定义时，你需要在方括号中填入一个子界类型的值，或者用两个有序类型的常量定义一个新的子界类型，子界类型指定了数组的有效索引。由于子界类型指定了数组下标值的上界和下界，那么下标就不必象C、C++、JAVA和其他语言那样必须从零开始。
由于数组下标基于子界类型，因此Delphi 能够对它们进行范围检查。不合法的常量子界类型将导致一个编译时间错误；如果选上编译器范围检查选项，那么超出范围的下标值将导致一个运行时间错误。
使用上述数组定义方法，定义一个DayTemperatures 类型的变量如下： type
DayTemperatures = array [1..24] of Integer; var
DayTemp1: DayTemperatures;
procedure AssignTemp; begin
DayTemp1 [1] := 54; DayTemp1 [2] := 52; ...
DayTemp1 [24] := 66;
DayTemp1 [25] := 67; // compile-time error
数组可以是多维的，如下例： type
MonthTemps = array [1..24, 1..31] of Integer;
YearTemps = array [1..24, 1..31, Jan..Dec] of Integer;
这两个数组建立在相同的核心类型上，因此你可用前面定义的数据类型声明它们，如下面代码所示： type
MonthTemps = array [1..31] of DayTemperatures;
20