Delphi 数据类型

一.类型定义       对于每一种自定义数据类型,必须遵循“先定义,后使用”的原则。类型定义的语法格式为:       [格式]:       type 类型名=类型;       [说明]:       type是保留字。类型名的命名要符合自定义标识符的命名规则。每种类型的定义都有各自的语法。         类型定义出现在程序说明部分。  二.枚举类型和子界类型         枚举类型和子界类型都属于顺序类型,是两种用户自定义的简单数据类型。       1.枚举类型       [格式]:       type 类型名=(值1,...,值n);       [说明]:   ? “type”为保留字,表示类型定义的开始   ? “类型名”为任意合法的自定义标识符   ? “值1”、“值2”…“值n”均为自定义标识符,是枚   举类型中的所有数据元素,也称枚举常量   ?  枚举常量的序号从0开始依次向后计数,即“值1”的序号为0,“值2”的序号为1,依此类推。 三.子界类型        子界类型指的是某个顺序类型(称为基类)的一个子集。定义子界类型的语法格式是:         type 类型名=下界值..上界值;         例如:         type  month=1..12;            //定义子界类型month         var  months:month;  //定义months为属于子界类型month的变量  四.数组类型        1.一维静态数组的定义与使用        一维静态数组类型的定义格式为:        type 数组类型名=array[下标类型] of 基类型;         [说明]:         array是保留字。[下标类型]一般为子界型;         基类型是数组元素的类型,可以为任意类型。         例如,下面定义一个一维数组类型num:         type num=array[1..5] of integer;  五.二维静态数组的定义与使用         二维静态数组比一维数组多一个下标,定义格式为:         [格式1]:         type 数组类型名=array[下标类型1,下标类型2] of   基类型;         [格式2]:         type 数组类型名=array[下标类型1] of array [下标类型2] of 基类型;         例如:         Type    atype=array[1..10,1..10] of integer;                     btype=array[1..4,1..3] of real;         二维静态数组类型定义之后,还要声明二维数组变量,声明方式与一维数组相似。  六.动态数组的定义与使用         静态数组在使用之前其类型及元素的个数均已确定,而动态数组没有固定的大小或长度,因此在程序运行时可为动态数组动态地分配存储空间。         一维动态数组的定义格式为:         type          数组类型名=array  of  基类型;         多维动态数组的定义格式为:         type          数组类型名=array of array of…array  of  基类型; 七.集合类型        1.集合类型的定义         集合(set)是具有相同性质但又可以区分开来的一组元素的整体。定义集合类型的一般格式为:         [格式]:         type 集合类型名=set of 基类型;         [说明]:set、of是保留字。基类型即集合元素的类型,通常是:字符型、布尔型、枚举型和子界型四种顺序类型。集合元素个数不能超过256个,集合元素没有次序关系。  八.集合类型的运算        (1)集合类型的值         集合类型的值放在一对方括号中,多个元素间用逗号分隔,或用子界方式表示连续的元素,每个元素可以表示为元素类型允许的表达式。         例如:         [‘a’..’z’]  //包含小写字母集合常量         [0..9,20]  //包含0到9及20的整数集合常量        (2)赋值运算         可以对集合变量进行赋值运算。例如:         var s:set of 1..2;         si:set of 0..100;         s:=[ ];  //[ ]表示空集         si:=[1..10,20]; 九.关系运算        关系运算符=、<>用于比较两个集合是否相等。<=(包含于)、>=(包含)用于测试一个集合是否为另一个集合的子集。                例如:        [1,2]<=[1..6]    //结果为true        [1,2]=[2,1]      //结果为true        [1,2]>=[1..6]    //结果为false        注意:集合中没有<和>运算。 十.属于运算(in)        保留字in是一个关系运算符,用于测试集合元素类型的元素是否在某个集合中。例如:        1 in [1..9]      //结果为true        ‘a’ in [‘a’..’z’]  //结果为true       (5)集合运算        集合运算符有+(并)、-(差)、*(交)。运算规则同数学中的集合运算。例如:        [1..3]+[3,5,7]   //结果为[1..3,5,7]        [1,2,3]*[]      //结果为[]        [1..3]-[3,5,7]   //结果为[1,2] 十一.字符串类型         字符串类型(string)是以字符为元素类型的一维数组,并且在字符数组的基础上增加了许多功能。         1.字符串类型定义格式         [格式]:         type 字符串类型名=string[长度];         [说明]:string保留字。[长度]省略,表示字符串长度不确定。         例如:         type string20=string[20];           //定义字符串类型string20,字符串最大长度为20         var s:string20;    //定义字符串类型变量s,最大长度为20 。 十二.字符串的运算        (1)字符串元素的运算         s[1]:=‘a’;    //对字符串第一个字符所在存储单元赋值为’a’        (2)字符串变量的运算:         对字符串变量可以进行赋值、读、写、比较、连接等运算。例如:             s:=‘china’;             readln(s);  writeln(s);               s:=‘china’+‘nanjing’;             if  s>‘abcde’  then  s:=‘123’;        (3)求字符串长度         用标准函数length(s)可以返回字符串s的长度。         当length(s)=0表示字符串s为空字符串。  十三.记录类型         1.记录类型的定义         记录类型是一个不同种类元素的集合,每个元素称为字段(field)。在类型定义时,指定记录类型的名字和每个字段名。声明格式为:         type           记录类型名=record              字段1:类型1;              字段2:类型2;              ……              字段n:类型 n;         end; 十四.记录类型的使用         (1)限定访问记录字段          [格式]:          记录类型变量名.字段名          [说明]:该格式为访问记录类型变量的某个字段。“.”是限定标识符,不能省略。          例如,访问记录类型变量stu          read(stu.no);               //访问stu变量的no字段,并通过键盘输入其数值。         stu.name:=‘liping’;           //访问stu变量的name字段,并对其赋值。 十五.使用开域(with)语句访问记录字段            [格式]:            With 记录变量名 do                 语句;            [说明]:用with打开“记录类型变量名”指定的变量,下面访问其字段时就不需要再在字段名前加“记录类型变量名”了。例如:               with stu do                  begin                      read(no);                          //省略字段名前的小圆点和记录类型变量名                      name:=‘liping’;                      sex:=male;                      age:=18;                  end; 十六.记录数组         如果记录作为数组元素的类型,则称为记录数组。         例如:         var  class:array[1..50] of student;         说明class是一个具有50个元素的数组,数组元素的类型是前面定义的记录类型student。         class[1]代表第一条学生记录。  十七.文件类型        在计算机系统中,存放在外存储器中的数据集合称为文件(file)。在delphi中,文件类型是由相同类型的元素组成的有序集合。文件类型的声明格式为:         type         文件类型名 = file of 基类型;         例如,声明一个文件类型RecordList,以上面定义的TdateRec为数据类型。         type         RecordList = file of TdateRec;         var          Myrecordlist:RecordList; 十八.指针所指向的动态变量         引用指针所指向的动态变量,可采用如下格式:         指针变量^         例如:         指针p指向的动态变量为p^。         若p^的类型为integer,则可对p^进行如下操作:         P^:=10;  p^:=p^+20;          readln(p^);  writeln(p^); 十九.对指针变量的操作         (1)指针赋空值           p:=nil;              {nil是指针类型的常量,表示空值,可赋给任意指针变量,表示指针不指向动态变量}         (2)指针获得变量的地址          用运算符@可获得变量的地址。          var           i:integer;           p:^integer;           i:=10;    //对整型变量i赋值为10           p:=@i;   //获得变量i的地址并赋给指针变量p           writeln(p^);   //输出p^的值,结果是10           (3)赋给另一指针值           两个基类型相同的指针变量可以进行赋值。例如:           var p,q:^integer;            i:integer;            p:=@i;   //获得变量i的地址并赋给指针变量p            q:=p;    //赋值后,p、q指向同一个动态变量,即有相同的地址          (4)关系运算(=、<>)           两个相同基类型的指针可以进行=、<>运算。           If  p=q  then  q^:=10 ;             //两指针相等时,表示指向同一个动态变量          (5)标准过程new和dispose

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。

相关推荐


 从网上看到《Delphi API HOOK完全说明》这篇文章,基本上都是大家转来转去,原文出处我已经找不到了。这篇文章写的很不错,但最后部分“PermuteFunction 的终极版本”描述的不太清楚,完全按照该文章代码执行,是不行的。可能是作者故意这样做的?本文最后提供修正后的下载地址。原文如下:一、关于API Hook1.什么是API Hook不知道大家是否还记得,在DO
  从网上看到《Delphi API HOOK完全说明》这篇文章,基本上都是大家转来转去,原文出处我已经找不到了。 这篇文章写的很不错,但最后部分“PermuteFunction 的终极版本”描述的不太清楚,完全按照该文章代码执行,是不行的。需要修改mess.pas中代码才行。其实文中提到的一个结构,代码中并没有使用typePIMAGE_IMPORT_DESCRIPTOR = ^IMA
ffmpeg 是一套强大的开源的多媒体库 一般都是用 c/c++ 调用, 抽空研究了一下该库的最新版 ,把部分api 翻译成了dephi版的 记录一下 地址 ffmpegvcl.zip
32位CPU所含有的寄存器有:4个数据寄存器(EAX、EBX、ECX和EDX)2个变址和指针寄存器(ESI和EDI) 2个指针寄存器(ESP和EBP)6个段寄存器(ES、CS、SS、DS、FS和GS)
1 mov dst, src dst是目的操作数,src是源操作数,指令实现的功能是:将源操作数送到目的操作数中,即:(dst) &lt;--(src) 1.dst和src类型必须匹配,即必须同为字节
有三个API函数可以运行可执行文件WinExec、ShellExecute和CreateProcess。 1.CreateProcess因为使用复杂,比较少用。 2.WinExec主要运行EXE文件。如:WinExec('Notepad.exe Readme.txt', SW_SHOW); 3.ShellExecute不仅可以运行EXE文件,也可以运行已经关联的文件。 首先必须引用shellapi
API原型: Declare Function MoveFileEx& Lib "kernel32" Alias "MoveFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal dwFlags As Long) 参数 类型及说明 lpExistingFileName String,欲移
附带通用控件安装方法: ---------- 基本安装 1、对于单个控件,Componet-->install component..-->PAS或DCU文件-->install; 2、对于带*.dpk文件的控件包,File-->Open(下拉列表框中选*.dpk)-->install即可; 3、对于带*.bpl文件的控件包,Install Packages-->Add-->bpl文件名即可; 4
type   TRec=Record     msg:string;     pic:TMemoryStream; end; procedure TForm2.BitBtn1Click(Sender: TObject); var   ms:TMemoryStream;   Rec1,Rec2:TRec;   cc:tmemorystream;   jpg:TJPEGImage; begin   R
program Project1; { Types and Structures Definition } type   WNDCLASSEX = packed record     cbSize: LongWord;     style: LongWord;     lpfnWndProc: Pointer;     cbClsExtra: Integer;     cbWndExtra: In
   在Windows大行其道的今天,windows界面程序受到广大用户的欢迎。对这些程序的操作不外乎两种,键盘输入控制和鼠标输入控制。有时,对于繁杂 的,或重复性的操作,我们能否通过编制程序来代替手工输入,而用程序来模拟键盘及鼠标的输入呢?答案是肯定的。这主要是通过两个API函数来实现的。      下面以Delphi为例来介绍一下如何实现这两个功能。模拟键盘我们用Keybd_event这个ap
delphi中经常见到以下两种定义 Type TMouseProc = procedure (X,Y:integer); TMouseEvent = procedure (X,Y:integer) of Object; 两者样子差不多但实际意义却不一样, TMouseProc只是单一的函数指针类型; TMouseEvent是对象的函数指针,也就是对象/类的函数/方法 区
Windows 2000/XP和2003等支持一种叫做"服务程序"的东西.程序作为服务启动有以下几个好处:     (1)不用登陆进系统即可运行.     (2)具有SYSTEM特权.所以你在进程管理器里面是无法结束它的.     笔者在2003年为一公司开发机顶盒项目的时候,曾经写过课件上传和媒体服务,下面就介绍一下如何用Delphi7创建一个Service程序.     运行Delphi7,选
方法一: 1.调试delphi 写的服务程序,有这么一个办法。原来每次都是用attach to process方法,很麻烦。并且按照服务线程的执行线路,可能会停不到想要的断点。笨办法是,在procedure TsvcFrm.ServiceExecute(Sender: TService);中想要下断的语句前加个人定胜天的sleep(20000),但实际上这种办法是主观臆测的。可行,没问题。记得大学
Delphi For iOS开发指南(17):让应用程序禁止竖屏(也就是只显示横屏)     最近好多人问,怎么样让Delphi For iOS开发的应用程序禁止竖屏,也就是想让它一直横屏显示,横屏是好,一行可以放好几个控件,表格的话也可以多显示几列,看起来方便。 只要一句代码就可以让Delphi For iOS开发的应用程序禁止竖屏,如下: Application.FormFactor.Orie
一个比较完整的Inno Setup 安装脚本,增加了对ini文件设置的功能,一个安装包常用的功能都具备了。 [Setup] ; 注: AppId的值为单独标识该应用程序。 ; 不要为其他安装程序使用相同的AppId值。 ; (生成新的GUID,点击 工具|在IDE中生成GUID。) AppId={{A9861883-31C5-4324-BD9A-DC3271EEB675} ;程序名 AppName
在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的,我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的DLL或是Pas了。 在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash 单元,再写如下代码即可以达到MD5的实现。 示例代码 procedure TForm1.Button1Click(Sender: TObjec
在Delphi 7下要制作系统托盘,只能制作一个比较简单的系统托盘,因为ShellAPI文件定义的TNotifyIconData结构体是比较早的版本。定义如下: 1 2 3 4 5 6 7 8 9 _NOTIFYICONDATAA = record    cbSize: DWORD;    Wnd: HWND;    uID: UINT;    uFlags: UINT;    uCallback
声明: 1. type Name = Existing type; 2. type Name = type Existing type; 3. type Name = (EnumValue1 [=value], EnumValue2 [=value] ...); 4. type Name = Expression1..Expression2; 5. type Name = ^Existing ty