文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:33
字数 656
阅读 2
收藏 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
博文 2011
码字总数 14107
作品 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
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
0
集成开发环境--Delphi

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

匿名
2009/03/11
21K
1
Delphi XE2:这就是我们所期待的Delphi吗?

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

虫虫
2011/10/31
40.7K
49
Delphi的网友评论

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

红薯
2009/12/11
551
7

没有更多内容

加载失败,请刷新页面

加载更多

deepin中配置robot framework环境

本文永久更新地址:https://my.oschina.net/bysu/blog/2989005 【若要到岸,请摇船:开源中国 不最醉不龟归】 1.在终端中输入pip,回车,如果提示没有该命令,则先安转pip sudo apt-get inst...

不最醉不龟归
36分钟前
2
0
OSChina 周日乱弹 —— 钱不还,我就当你人不在了

Osc乱弹歌单(2018)请戳(这里) 【今日歌曲】 @莱布妮子 :分享Bigleaf的单曲《小鹿》 《小鹿》- Bigleaf 手机党少年们想听歌,请使劲儿戳(这里) 周日在家做什么? 做手工呀, @poorfis...

小小编辑
今天
114
4
EOS docker开发环境

使用eos docker镜像是部署本地EOS开发环境的最轻松愉快的方法。使用官方提供的eos docker镜像,你可以快速建立一个eos开发环境,可以迅速启动开发节点和钱包服务器、创建账户、编写智能合约....

汇智网教程
今天
20
0
《唐史原来超有趣》的读后感优秀范文3700字

《唐史原来超有趣》的读后感优秀范文3700字: 作者:花若离。我今天分享的内容《唐史原来超有趣》这本书的读后感,我将这本书看了一遍之后就束之高阁了,不过里面的内容一直在在脑海中回放,...

原创小博客
今天
30
0
IC-CAD Methodology知识图谱

CAD (Computer Aided Design),计算机辅助设计,指利用计算机及其图形设备帮助设计人员进行设计工作,这个定义同样可以用来近似描述IC公司CAD工程师这个岗位的工作。 早期IC公司的CAD岗位最初...

李艳青1987
今天
39
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部