高级数据类型

枚举类型

Type
  WeekDays=(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday);
Var
  WeekDay:WeekDays;
--------------------------------------------或者直接声明
或者直接声明
Var
  WeekDay:(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday);

子界类型

Type
  Months=1..12;
  Caps='A'..'Z';
Var
  Month:Months:
--------------------------------------------或者直接声明  
或者直接声明
Var
  Month:1..12:

集合类型

Type
  Numbers=set of byte;
Var
  Number:Numbers:
--------------------------------------------或者直接声明  
或者直接声明
Var
  Number:set of Byte;

数组类型

Type
  CompanyName=Array [1..20]of string;
Var
  MyCompany:CompanyName;
--------------------------------------------或者直接声明   
或者直接声明
Var
  MyCompany:Array [1..20]of string;

记录类型

Type
  Student=record
  Name:String;
  Age:integer;
  Grade:String;
  Addr:String;
End;

Var
  CollageStudent:Student;
--------------------------------------------或者直接声明

Var
  CollageStudent:Record
  Name:String;
  Age:integer;
  Grade:String;
  Addr:String;
End;

文件类型

Type
  TMingRiFile=file of integer;

类 类型

Type
  类名=Class（父类名）
    域
    属性
    方法
End;
--------------------------------------------例如
Type
  Tperson=class(Tobject)
  Name:String;
  Age:integer;
  Addr:String;
   Procedure SetAge(Value:integer);
   Function GetAge:integer;
End；

指针类型

Type 
  TmingRi=^integer;

变体类型

声明了Variant类型后，可以赋给它除了Int64和结构类型以外的所有类型的值;当其出现在赋值语句和表达式中时，编译器将自动完成类型转换。

Var
  MyVariant:Variant;
begin
  MyVariant:=200;          //integer类型值
  MyVariant:='MingRiSoft'; //real类型值
  MyVariant:=123.4567;     //string类型值
  MyVariant:=true;         //boolean类型值
end;

《Delphi应用开发完全手册》p24