Delphi中布尔类型辨析_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

Delphi中布尔类型辨析

作者：闵涛文章来源：闵涛的学习笔记点击数：718 更新时间：2009/4/23 18:25:59

Delphi中布尔类型辨析
苏涌(2000-09-29)
　　Delphi中预定义的布尔类型有四种：Boolean ，ByteBool，WordBool，LongBool。其中，Boolean 类型是首选布尔类型，其余三种是为其它编程语言和Windows 环境提供兼容性支持。这些布尔类型在使用上大同小异，但如果混淆使用将可能会有意外结果。

　　现做简单辨析供大家参考。

　　

一、从资源占用的角度进行比较
　　一项Boolean 类型的数据占用 1字节的内存；

　　一项ByteBool类型的数据占用 1字节的内存；

　　一项WordBool类型的数据占用 2字节的内存；

　　一项LongBool类型的数据占用 4字节的内存。

　　如果开发者在进行程序设计时将构造一种含有布尔数据类型的结构类型，那么在资源占用方面将有所考虑。尽管这些数据类型之间是可以相互赋值的，但某些特殊情况下是有区别的。首先看下面的语句：

　　type

　　 ByteBoolFile = file of ByteBool;

　　 LongBoolFile = file of LongBool;

　　这里，如果在这两中类型文件中存储相同数量的布尔值，其文件大小是不同的。而对同一物理文件按照这两种类型文件分别读取数据，其结果更是相去甚远。

　　下面是比较ByteBool和LongBool的一段程序，得到的文件 test1.bin和 test2.bin的文件尺寸分别为 4字节和16字节。

　　procedure CompareByteBoolWithLongBool;

　　const

　　 FName1 = ''''c: est1.bin'''';

　　 FName2 = ''''c: est2.bin'''';

　　type

　　 ByteBoolFile = file of ByteBool;

　　 LongBoolFile = file of LongBool;

　　var

　　 BF: ByteBoolFile;

　　 LF: LongBoolFile;

　　 B: Boolean;

　　begin

　　 B := False;

　　 AssignFile(BF, FName1);

　　 Rewrite(BF);

　　 Write(BF, B, B, B, B);

　　 CloseFile(BF);

　　 AssignFile(LF, FName2);

　　 Rewrite(LF);

　　 Write(LF, B, B, B, B);

　　 CloseFile(LF);

　　end;

　　有兴趣的朋友可以在此基础上再比较一下读取数据的区别，你会有更奇特的发现。

二、从布尔值的操作角度进行比较
　　在Delphi中，布尔值只能被赋予预定义的常量True和 False之一。上述四种布尔数据类型有如下关系：

　　Boolean ByteBool，WordBool，LongBool

　　False < True False <> True

　　Ord(False) = 0 Ord(False) = 0

　　Ord(True) = 1 Ord(True) <> 0

　　Succ(False) = True Succ(False) = True

　　Pred(True) = False Pred(False) = True

　　不难看出，Boolean 类型的有序的，而其它三种布尔数据类型是无序的。下面的程序给出了其中的部分区别：

　　procedure CompareBooleanWithLongBool;

　　var

　　 B: Boolean;

　　 LB: LongBool;

　　begin

　　 B := False;

　　 LB := False;

　　 if Ord(B) = Ord(LB) then

　　　　ShowMessage(''''Ord(B) = Ord(LB) [B = LB = False]'''') //将被执行

　　 else

　　　　ShowMessage(''''Ord(B) <> Ord(LB) [B = LB = False]'''');

　　 B := True;

　　 LB := True;

　　 if Ord(B) = Ord(LB) then

　　　　ShowMessage(''''Ord(B) = Ord(LB) [B = LB = True]'''')

　　 else

　　　　ShowMessage(''''Ord(B) <> Ord(LB) [B = LB = True]''''); //将被执行

　　 ShowMessage(''''Ord(B) = '''' + IntToStr(Ord(B)));　　　　 //一定是 1

　　 ShowMessage(''''Ord(LB) = '''' + IntToStr(Ord(LB)));　　　　//可能是-1

　　end;

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程：一种新颖的技术：Delphi for DOS！！！

下一篇教程： TWebBrowser流程讲解及如何判断下载网页成功

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……