delphi基础篇之数据类型之一：1.简单类型（Simple）

1.简单类型（Simple）

简单类型包括实数类型（Real）和有序类型（Ordinal）。有序类型又包括整数类型、字符类型、布尔类型、枚举类型和子界类型等。

1-1.有序类型

有序类型是一个有序数的集合。在每一种有序类型中，任何一个该类型的元素都有一个唯一的先行数（第一个除外）和唯一的后继数（最后一个除外）。而且，每个值均有一个确定的序号。对整型数而言，该序号就是该整数的本身。而其它的有序类型（子界类型除外），第一个值的序号是0，第二个是1,依此类推。如果某个有序类型的值为N，则其先行数为N-1,后继数为N+1。Delphi里面的有序类型指的是在ASCII码范围内的字符或者数字。

Object Pascal预先定义了一些函数，专门用于处理有序类型的表达式和变量。表1-1有序类型函数

函数	参数	返回值	备注
Ord	有序类型表达式	有序类型表达式值的序号	不能带Int64参数
Pred	有序类型表达式	有序类型表达式值的先行数	不能在拥有Write过程的特性上使用
Succ	有序类型表达式	有序类型表达式值的后继数	不能在拥有Write过程的特性上使用
High	有序类型标识符或变量	该类型中序号最大的值	也可在short-string类型或数组
Low	有序类型标识符或变量	该类型中序号最小的值	也可在short-string类型或数组
Inc	有序类型标识符或变量	增加一个有序类型变量的值
Dec	有序类型标识符或变量	减少一个有序类型变量的值

1-1-1.整数类型

在Object Pascal中，Integer类型是所有有符号整数的统称。实际上，整数类型可以分为基本整数类型(Fundamental type)和一般整数类型(generic type)。一般整数类型(generic type)包括Integer和Cardinal两种。在实际编程时，请尽量区分这两种，因为底层CPU和操作系统对结果进行了优化。 整数类型包括的类型，如表1-5 所示。 表1-1-1整数类型

整数类型	范围	备注
Integer	-2147483648～2147483647	32 位带符号数
Cardinal	0～4294967295	32 位无符号数
Shortint	-128～127	8 位带符号数
Smallint	-32768～32767	16 位带符号数
Longint	-2147483648～2147483647	32 位带符号数
Int64	-2^63～2^63	64 位带符号数
Byte	0～255	8 位无符号数
Word	0～65535	16 位无符号数
Longword	0～4294967295	32 位无符号数

注意：绝大多数例程在遇到Int64时都把它转换为32位。但例程High，Low，Succ，Pred，Inc，Dec，IntToStr和IntToHex则完全支持Int64参数。Round，Trunc，StrToInt64，和StrToInt64Def函数可以返回Int64类型的结果。

1-1-2.字符类型

Delphi还提供了Char类型的扩展，即AnsiChar和WideChar型。字符类型3 种字符变量如表表1-1-2所示：

字符类型	取值	备注
AnsiChar	8位	根据扩展ANSI 字符表排列
WideChar	16位	根据Unicode 码排列，前256 个Unicode 字符同ANSI 字符相同
Char		delphi7对应AnsiChar，8位，1个字节。但Delphi2010对应于WideChar，16位，2个字节。

AnsiChar 类型变量使用单字节来表示一个字符，WideChar 则使用两个字节来表示一个字符。WideChar 与 AnsiChar 类型的变量之间不能相互赋值：Delphi 中最常用的字符类型是 Char 类型。它是上面两种字符类型其中一种的别名。在 Delphi2010 中 Char 被默认为 WideChar，但在之前的版本如 Delphi7 中，此类型代表AnsiChar。Delphi 中的字符与字符串没有明显区别，编译器将所有的只含有一个字符（对于AnsiChar 则是一个字节）的字符串如'A'、'B'当成一个字符。

Ansi字符集是扩展的ASCII字符集，仍然占一个字节。 WideChar用来支持泛字符集（Unicode）。Unicode字符占用两个字节，可以有65536种不同的取值，可以表达现代计算机中使用的世界上所有的字符，包括图形符号和用于出版业的特殊符号等。UniCode字符集的前256个字符对应着ANSI字符。如果你把一个AnsiChar字符放到WideChar字符类型的变量中，WideChar字符类型变量的高字节将全部置为0，AnsiChar字符存放到WideChar字符类型的变量的低字节中。 注意：Windows NT全面支持Unicode字符号集，但Windows 95却不同。如果你希望书写的程序同时能在两种系统上运行，必须使用SizeOf()函数，以确定字符占多少字节。

1-1-3.布尔类型

布尔类型包括4 种，分别为Boolean、ByteBool、WordBool 和LongBool。Boolean 和ByteBool 各占用一个字节，WordBool 占用2个字节，LongBool 占用4 个字节。 Boolean 的值只能是0（False）或1（True），ByteBool、WordBool 和LongBool 可以是有符号的整数，为0 值代表False，非0 值代表True。

1-1-4.枚举类型

enum类型
Pascal程序不仅用于数值处理，还更广泛地用于处理非数值的数据。例如，性别、月份、星期几、颜色、单位名、学历、职业等。使用枚举类型代码直观，并且值可控 。一般用于结果集很少改变的情况。 
一、(1).枚举类型的定义
   格式:　type 枚举类型标识符=(标识符1,标识符2,…,标识符n)

(2).枚举类型数据特点

① 枚举元素只能是标识符；

例如，下列类型定义是合法的：
　　    type  days=(sun,mon,tue,wed,thu,fri,sat);
　　             colors=(red,yellow,blue,white,black,green);
　　     而下列类型定义是错误的:
　　   type colortype=('red','yellow','blue','white');
　　           numbers=(1,3,5,7,9);

定义枚举类型时列出的所有枚举元素构成了这种枚举类型的值域（取值范围）。

② 枚举类型属于顺序类型
　  根据定义类型时各枚举元素的排列顺序确定它们的序号，且序号从0开始。

例如，定义type days=(sun,mon,tue,wed,thu,fri,sat);

则， ord(sun)=0,ord(mon)=1,……，以此类推。

枚举类型中的第一个元素无前趋，最后一个元素无后继。 
       pred(sat)=fri; succ(sun)=mon; ord(sat)=6;

③ 同一个枚举元素不能出现在两个或两个以上的枚举类型定义中。如下列定义是错误的:

　　 type color1=(red,yellow,white);
　　　　  color2=(blue,red,black);

因为red属于枚举类型color1和 color2

④ 枚举类型变量只能进行赋值运算和关系运算，不能进行算术运算和逻辑运算。
　　在枚举元素比较时，实际上是对其序号的比较。

　例如定义如下：
　　  type days=(sun,mon,tue,wed,thu,fri,sat);
　　　　   colors=(red,yellow,blue,white,black,green);
　　  var   color:colors;
　　　      weekday:days;
　则下面语句是合法的:

weekday:=mon;
　　          if weekday=sun then write('rest');

而下面语句是不合法的:

mon:=1;           错把枚举值当成变量名；

weekday:=blue；   枚举值blue不属于枚举变量weekday的值域；

read(color);      枚举类型变量 不能用读语句进行赋值；

write(weekday); writeln(blue);不能通过写语句输出枚举类型的变量值和枚举值。

⑤ 可以把变量的说明与类型的定义合并在一起，如:
　　var holiday,workday:(sun,mon,tue,wed,thu,fri,sat);
　　　  color:(red,yellow,blue,white,black,green);

二、枚举类型的应用
例1、输入今天是星期几的序号，输出明天是星期几的英文单词（星期天序号为0）。
　　type weekday=(sun,mon,tue,wed,thu,fri,sat);
　　 var i : integer;
　　　　 today,tomorrow : weekday;
　　begin
　　　writeln('What date is it'); readln(i);
　　　case i of                              { 根据输入转换成枚举型 }
　　　　0:today:=sun;
　　　　1:today:=mon;
　　　　2:today:=tue;
　　　　3:today:=wed;
　　　　4:today:=thu;
　　　　5:today:=fri;
　　　　6:today:=sat;
　　　end;

if (today=sat) then tomorrow:=sun  else tomorrow:=succ(today);
　　  write('The tomorrow is ');    
　　　case tomorrow of
　　　　sun:writeln('sunday');
　　　　mon:writeln('monday');
　　　　tue:writeln('tuesday');
　　　　wed:writeln('wednesay');
　　　　thu:writeln('thursday');
　　　　fri:writeln('friday');
　　　　sat:writeln('saturday');
　　　end;
　　end.
    枚举类型是一种有序类型，所以枚举类型的变量可以作为循环变量。

学习枚举类型时，注意枚举元素与变量的区别，以及枚举与变量的输入输出方法的处理。

1-1-5.子界类型

子界类型是下列类型中某范围内的值，即整型、布尔型、字符型或枚举型。如果需要限制一个变量的取值范围时，子界类型是一个好的选择。例如：

type
    Month=1..12;
    Letters=’A’.. ’H’;
    DayOfWeek=(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday);//枚举型
    Days=Monday..Friday; //一个DayOfWeek 型的子界

跟枚举类型一样，子界类型是不能直接参加运算的，必须声明一个子界类型的变量。

在声明子界类型和子界类型变量时，请注意以下几点：

1）上界常数和下界常数必须是同一类型，且都是有序类型。

2）子界类型变量具有宿主类型数据的所有运算特性，但运算的结果必须在范围内。

3）上界常数和下界常数可以是表达式。例如：

const X = 10; Y = 50;
type Color = (Red, Green, Blue);
     Scale = X * 2..X * 20;

1-2.实型

实型不是有序类型，因为它的值域是无限的，实型的数据也叫实数，实型用于表示通常所说的浮点数。Object Pascal 语言中的实数数据（Real）类型如表1-7 所示。 表1-7 实数类型

实数类型	范围	有效位数	字节数
Real48	2.9*10^-39～1.7*10^38	11～12	6
Single	1.5*10^-35～3.4*10^38	7～8	4
Double	5.0*10^-324～1.7*10^308	15～16	8
Extended	3.6*10^-4951～1.1*10^4932	19～20	10
Comp	(-2^63)+1～(2^63)-1	19～20	8
Currency	-922337203685477.5808～922337203685477.5807	19～20	8
Real	5.0*10^-324～1.7*10^308	15～16	8

其中常用的实数类型是Real、Single、Double。

关于实数类型的3个常用函数。

例程	作用
Round	转换一个实型值为四舍五入后的整型值
Trunc	转换一个实型值为小数截断后的整型值
Int	返回浮点数的整数部分