高级数据类型

枚举类型
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

posted @   德琪  阅读(18)  评论(0编辑  收藏  举报
相关博文:
阅读排行:
· DeepSeek “源神”启动!「GitHub 热点速览」
· 微软正式发布.NET 10 Preview 1:开启下一代开发框架新篇章
· 我与微信审核的“相爱相杀”看个人小程序副业
· C# 集成 DeepSeek 模型实现 AI 私有化(本地部署与 API 调用教程)
· spring官宣接入deepseek,真的太香了~
点击右上角即可分享
微信分享提示