易截截图软件、单文件、免安装、纯绿色、仅160KB

Delphi 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);
对枚举数据的输入与输出可通过间接方式进行。输入时,一般可输入一个代码,通过程序进行转换,输出时,也只是打


相关文档:

Delphi线程_TThread代码分析

                                                   ......

Delphi中流的基本概念及函数声明

一、Delphi中流的基本概念及函数声明
在Delphi中,所有流对象的基类为TStream类,其中定义了所有流的共同属性和方法。 TStream类中定义的属性介绍如下: 1、Size:此属性以字节返回流中数据大小。 2、Position:此属性控制流中存取指针的位置。 Tstream中定义的虚方法有四个: 1、Read:此方法实现将数据从流中读出。函数原形为: ......

delphi TStringList的用法

TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的。
常规的用法大家都知道,现在来讨论它的一些高级的用法。
先把要讨论的几个属性列出来:
1、CommaText
2、Delimiter & DelimitedText
3、Names & Values & ValuefromIndex
先看第一个:CommaText。怎么用呢?用代码说话:
const
......

Delphi 日期函数

Day 开头的函数

Unit
DateUtils
function DateOf(const Avalue: TDateTime): TDateTime;
描述
使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个
只带有日期的 TDateTime 类型变量。
例如:
showmessage(DateTimetostr(dateof(now())));
你得到的是 2003/03/19
而 showmessage(DateTime ......

用Delphi + DirectX开发简单RPG游戏 转


  TDXDraw DirectDraw 和 Direct3D 组件 
  TDXDIB 容纳DIB(设备无关位图,Device Independent Bitmap)的组件 
  TDXImageList 图片列表组件 
  TDX3D Direct3D 组件 (和TDXDraw一起使用) 
  TDXSound DirectSound 组件 
  TDXWave 容纳 Wave(波形音频 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号