用户自定义类型01 - 零基础入门学习Delphi031

冬雪雪冬

包括枚举、子界、集合和记录。

首先介绍有序数据类型的常用操作过程和函数

	参数	返回值
Dec	有序数据类型变量，变量 -1	过程，如Dec(i)使i-1
Inc	有序数据类型变量，变量 +1	过程
Pred	有序表达式	表达式前驱的值，如Pred(3)返回2
Suce	有序表达式	表达式后继的值
Ord	有序表达式	有序表达式的值，如Ord(5)返回5，Ord(‘A’)返回65
Odd	有序表达式	判断是否为奇数
Low	有序类型标识符或有序类型变量	该类型的最小值
High	有序类型标识符或有序类型变量	该类型的最大值

枚举类型是将数据一一列举出来，如星期几、月份等。实际上就是把0~n起来个别名。

定义：

Type

         枚举标识符 = (标识符1,标识符2,标识符3);

例：

Type

         week= (sun, mon, tue, wed, thu, fri ,sat)

实际上就是0, 1, 2, 3, 4, 5 ,6

因此，枚举类型本质上是用一些枚举常量来表示一组连续的整数。但枚举常量不能直接进行算术运算，可以进行关系运算或间接的算术运算。

例题：

1. implementation
   
2. 
   
3. {$R *.dfm}
   
4. Type
   
5.   week = (sun, mon, tue, wed, thu, fri, sat);
   
6. Function Whatday(day: week): String;
   
7. begin
   
8.   case day of
   
9.     sun: result := '周日';
   
10.     mon: result := '周一';
    
11.     tue: result := '周二';
    
12.     wed: result := '周三';
    
13.     thu: result := '周四';
    
14.     fri: result := '周五';
    
15.     sat: result := '周六';
    
16.   end;
    
17. end;
    
18. procedure TForm1.Button1Click(Sender: TObject);
    
19. begin
    
20.   case StrToInt(Edit1.Text) of
    
21.      0: Label1.Caption := WhatDay(sun);
    
22.      1: Label1.Caption := WhatDay(mon);
    
23.      2: Label1.Caption := WhatDay(tue);
    
24.      3: Label1.Caption := WhatDay(wed);
    
25.      4: Label1.Caption := WhatDay(thu);
    
26.      5: Label1.Caption := WhatDay(fri);
    
27.      6: Label1.Caption := WhatDay(sat);
    
28.   end;
    
29. 
    
30. end;

复制代码

子界类型就是定义了下界上界的连续类型

type

         子界标识符 = 常量1,常量2.常量3

如：

type

         num= 1..10;

var

         n1,n2: num;

或

var

         n1,n2：1..10;

-1..10可以

‘A’..’Z’可以

‘A’..’z’可以

sun..fri在先定义了枚举类型后可以

不多太少

这部分还是听懵逼的