Daytemp1: Daytemperature; Procedure assigntemp; Begin Daytemp1[1]:=15; Daytemp1[2]:=16; … Daytemp1[24]:=14; End;
定义一个二维数组：
Type monthtemp=arry[1..24,1..31] of integer;ቤተ መጻሕፍቲ ባይዱ定义一个三维数组：
P:^integer; A:integer; Begin P:=@A;//将变量 A 的地址赋给指针 P A:=10; P^:=20;
Type monthtemp=arry[1..24,1..31,jan..dec] of integer; 文件类型： 语法格式：type filetypename= file of type Type Filetype=record Name:steing[15]; Age:integer; Num:Boolean; End; Myfile=file of filetype 指针类型： 语法类型：type pointerToInt=^integer;(指向整数类型的指针) Var
Fieldlist1：type1; … Fieldlistn：typen; End Type Student=record Name:string; Class:string; End; … Var Stu1,stu2:student; 数组类型 语法格式：type
Daytemperature=arry[1…100] of integer; Type Daytemperature=arry[124] of integer; Var
Delphi 中数据类型的定义 枚举类型： 语法类型：type typename=(val1,…,valn) Type
Tweek=(Sunday，Monday，Tuesday，Wednesday，Thursday，Friday，Saturday); Var
Someday：Tweek; 子界类型： 语法格式：low…high Type Tmyweek=Monday…Thursday; 集合类型： 语法格式：set of basetype Type Set1=set of=（A,B,C,D,E,F,G,H）; Weekdata=(Sunday，Monday，Tuesday，Wednesday，Thursday，Friday，Saturday); Weekset=set of weekdata; 记录类型： 语法格式：type recordtypename=record