文档章节

Delphi 中 "位" 的使用(2) - 集合

涂孟超
 涂孟超
发布于 2014/09/26 15:33
字数 656
阅读 2
收藏 0
点赞 0
评论 0

集合中的每个元素其实只占一个二进制位, 不足 8 个元素的集合只需要 1 个字节.

先观察集合的大小:

Type
  TSet1 = set of (a1,a2,a3,a4,a5,a6,a7,a8);    {刚好对应一个字节的 8 个位}
  TSet2 = set of (b1,b2,b3);                   {只用一个字节中的 3 个位, 也要占一个字节}
  TSet3 = set of (c1,c2,c3,c4,c5,c6,c7,c8,c9); {需要 9 个位, 一个字节容不下了}
  TSet4 = set of Char;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessageFmt('%d, %d, %d, %d', [SizeOf(TSet1), //1
                                    SizeOf(TSet2), //1
                                    SizeOf(TSet3), //2
                                    SizeOf(TSet4)  //32
                                   ]);
end;

 
 
 
 
 

 

 

  

洞察集合的二进制表示:

{查看二进制的函数}
function ToBin(p: PByteArray; b: Integer): string;
var
  i,j: Integer;
begin
  Result := StringOfChar('0', b * 8);
  for i := 0 to b - 1 do for j := 0 to 7 do
    if Odd(p^[b-1-i] shr j) then Result[i*8 + 8 - j] := '1';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  set1: set of (A,B,C,D,E,F,G,H);
begin
  set1 := [];
  ShowMessage(ToBin(@set1, SizeOf(set1))); //00000000
  set1 := [A,B,C,D,E,F,G,H];
  ShowMessage(ToBin(@set1, SizeOf(set1))); //11111111
  set1 := [A,B,C];
  ShowMessage(ToBin(@set1, SizeOf(set1))); //00000111
  set1 := [A,B,C,H];
  ShowMessage(ToBin(@set1, SizeOf(set1))); //10000111
end;

 
 
 
 
 

 

 

  

甚至可以把集合看成一个数字:

procedure TForm1.Button1Click(Sender: TObject);
type
  TSet = set of (A,B,C,D,E,F,G,H);
var
  s1,s2,s3,s4: TSet;
begin
  s1 := [];
  s2 := [A,B,C,D,E,F,G,H];
  s3 := [A,B,C];
  s4 := [A,B,C,H];
  ShowMessage(IntToStr(Byte(s1))); //0
  ShowMessage(IntToStr(Byte(s2))); //255
  ShowMessage(IntToStr(Byte(s3))); //7
  ShowMessage(IntToStr(Byte(s4))); //135
end;

 
 
 
 
 

 

 

  

用集合的方式重新做前一次的例子(窗体设计与测试效果同前):

var set1: set of 0..7; {准备用自定义的集合变量 set1 储存下面的 8 种状态}

procedure TForm1.FormCreate(Sender: TObject);
begin
  CheckListBox1.Items.CommaText := 'A,B,C,D,E,F,G,H';
  Button1.Caption := '保存状态';
  Button2.Caption := '恢复状态';
  Button3.Caption := '全选';
  Button4.Caption := '全不选';
  Button1.Tag := 1;
  Button2.Tag := 2;
  Button3.Tag := 3;
  Button4.Tag := 4;
  Button2.OnClick := Button1.OnClick;
  Button3.OnClick := Button1.OnClick;
  Button4.OnClick := Button1.OnClick;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  if TButton(Sender).Tag = 1 then set1 := [];
  for i := 0 to CheckListBox1.Count - 1 do
    case TButton(Sender).Tag of
      1: if CheckListBox1.Checked[i] then Include(set1, i);
      2: CheckListBox1.Checked[i] := i in set1;
      3: CheckListBox1.Checked[i] := True;
      4: CheckListBox1.Checked[i] := False;
    end;
end;

 
 
 
 
 

 

 

  

实例观察 TFontStyles 集合:

{查看二进制的函数}
function ToBin(p: PByteArray; b: Integer): string;
var
  i,j: Integer;
begin
  Result := StringOfChar('0', b * 8);
  for i := 0 to b - 1 do for j := 0 to 7 do
    if Odd(p^[b-1-i] shr j) then Result[i*8 + 8 - j] := '1';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFontStyles;
begin
  Font.Style := [fsBold, fsItalic, fsUnderline];
  fs := Font.Style;
  Text := ToBin(@fs, SizeOf(fs));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  fs: TFontStyles;
begin
  Font.Style := [];
  fs := Font.Style;
  Text := ToBin(@fs, SizeOf(fs));
end;

 
 
 
 
 

 

 

  

TFontStyles 集合的测试效果图:



接下来学习 TBits 类; 对 "位" 的操作 TBits 应该是最直观的.

本文转载自:http://www.cnblogs.com/del/archive/2010/05/07/1730116.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 0
深圳
程序员
delphi的函数round、trunc、ceil、floor 和RoundTo

1.Round(四舍六入五留双) 功能说明:对一个实数进行四舍五入。(按照银行家算法) 例: var i, j: Integer; begin i := Round(1.5); // i等于2 j := Round(2.5); // j等于2 end; 在Delphi中使...

dillonxiao ⋅ 05/14 ⋅ 0

RoundTo 及其相关的一些内容总结

1.Round(四舍六入五留双) 功能说明:对一个实数进行四舍五入。(按照银行家算法) 例: var i, j: Integer; begin i := Round(1.5); // i等于2 j := Round(2.5); // j等于2 end; 在Delphi中使...

geek_loser ⋅ 2014/07/22 ⋅ 0

使用C/Delphi编写ShellCode

来源:http://www.bootkitz.com/?p=93 文章谈的很好 这里说的ShellCode指的是一段x86机器码,无需重定位,在内存任何位置都可以执行的代码. 使用C/Delphi编写代码也是由其编译器特性决定的。...

BlAckEagle ⋅ 2013/01/21 ⋅ 5

集成开发环境--Delphi

Delphi,是美国Borland(宝兰)公司於1995年开发在Windows平台下的快速应用程式开发工具(Rapid Application Development,简称RAD),它的前身是在DOS下的产品Borland Turbo Pascal。(非开源...

匿名 ⋅ 2009/03/11 ⋅ 1

Delphi的网友评论

Delphi,是美国Borland(宝兰)公司於1995年开发在Windows平台下的快速应用程式开发工具(Rapid Application Development,简称RAD),它的前身是在DOS下的产品Borland Turbo Pascal。(非开源...

红薯 ⋅ 2009/12/11 ⋅ 7

Delphi XE2:这就是我们所期待的Delphi吗?

版权声明:本文为 OSChina.NET 原创编译 转载务必注明出处,并保留链接! 作者:蒂姆.安德森 Delphi是被一些人遗忘了的快速应用程序开发工具,但它与可视组件库相结合,依然是开发Windows本机...

虫虫 ⋅ 2011/10/31 ⋅ 49

从Delphi 8中选择一种数据库连接方式访问IBM DB2 UDB

本文向您说明了在在Delphi中把应用程序连接到DB2的三种方法中如何确定最好的一种。 简介 有三种主要的方法将Borland Delphi 8 for Microsoft.Net Framework连接到IBM DB2 通用数据库(UDB):...

晨曦之光 ⋅ 2012/03/09 ⋅ 0

SPCOMM的一些用法注意

使用串口SPCOMM接收数据的时候0x11和0x13无法接受,从时间间隔上看来可以接收,但是无法显示。网上查错误得: ------------------------------------------------------------------------ O...

jingshishengxu ⋅ 2013/03/04 ⋅ 0

学习编程,从何入手

计算机语言的种类非常的多,总的来说可以分成机器语言,汇编语言,高级语言三大类。 电脑每做的一次动作,一个步骤,都是按照已经用计算机语言编好的程序来执行的,程序是计算机要执行的指令...

空空-Renzo ⋅ 2013/01/17 ⋅ 0

Delphi、PChar和Char数组的比较

Delphi、PChar和Char数组的比较   string和Char数组都是一块内存, 其中存放连续的字符. string保存具体字符的内存对用户是透明的, 由Delphi管理它的分配, 复制和释放, 用户不能干预(其实也...

技术小甜 ⋅ 2017/11/08 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

Springboot2 之 Spring Data Redis 实现消息队列——发布/订阅模式

一般来说,消息队列有两种场景,一种是发布者订阅者模式,一种是生产者消费者模式,这里利用redis消息“发布/订阅”来简单实现订阅者模式。 实现之前先过过 redis 发布订阅的一些基础概念和操...

Simonton ⋅ 31分钟前 ⋅ 0

error:Could not find gradle

一.更新Android Studio后打开Project,报如下错误: Error: Could not find com.android.tools.build:gradle:2.2.1. Searched in the following locations: file:/D:/software/android/andro......

Yao--靠自己 ⋅ 昨天 ⋅ 0

Spring boot 项目打包及引入本地jar包

Spring Boot 项目打包以及引入本地Jar包 [TOC] 上篇文章提到 Maven 项目添加本地jar包的三种方式 ,本篇文章记录下在实际项目中的应用。 spring boot 打包方式 我们知道,传统应用可以将程序...

Os_yxguang ⋅ 昨天 ⋅ 0

常见数据结构(二)-树(二叉树,红黑树,B树)

本文介绍数据结构中几种常见的树:二分查找树,2-3树,红黑树,B树 写在前面 本文所有图片均截图自coursera上普林斯顿的课程《Algorithms, Part I》中的Slides 相关命题的证明可参考《算法(第...

浮躁的码农 ⋅ 昨天 ⋅ 0

android -------- 混淆打包报错 (warning - InnerClass ...)

最近做Android混淆打包遇到一些问题,Android Sdutio 3.1 版本打包的 错误如下: Android studio warning - InnerClass annotations are missing corresponding EnclosingMember annotation......

切切歆语 ⋅ 昨天 ⋅ 0

eclipse酷炫大法之设置主题、皮肤

eclipse酷炫大法 目前两款不错的eclipse 1.系统设置 Window->Preferences->General->Appearance 2.Eclipse Marketplace下载【推荐】 Help->Eclipse Marketplace->搜索‘theme’进行安装 比如......

anlve ⋅ 昨天 ⋅ 0

vim编辑模式、vim命令模式、vim实践

vim编辑模式 编辑模式用来输入或修改文本内容,编辑模式除了Esc外其他键几乎都是输入 如何进入编辑模式 一般模式输入以下按键,均可进入编辑模式,左下角提示 insert(中文为插入) 字样 i ...

蛋黄Yolks ⋅ 昨天 ⋅ 0

大数据入门基础:SSH介绍

什么是ssh 简单说,SSH是一种网络协议,用于计算机之间的加密登录。 如果一个用户从本地计算机,使用SSH协议登录另一台远程计算机,我们就可以认为,这种登录是安全的,即使被中途截获,密码...

董黎明 ⋅ 昨天 ⋅ 0

web3j教程

web3j是一个轻量级、高度模块化、响应式、类型安全的Java和Android类库提供丰富API,用于处理以太坊智能合约及与以太坊网络上的客户端(节点)进行集成。 汇智网最新发布的web3j教程,详细讲解...

汇智网教程 ⋅ 昨天 ⋅ 0

谷歌:安全问题机制并不如你想象中安全

腾讯科技讯 5月25日,如今的你或许已经对许多网站所使用的“安全问题机制”习以为常了,但你真的认为包括“你第一个宠物的名字是什么?”这些问题能够保障你的帐户安全吗? 根据谷歌(微博)安...

问题终结者 ⋅ 昨天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部