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

涂孟超

``````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;

``````

``````{查看二进制的函数}
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 集合的测试效果图:

### 涂孟超

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

2009/03/11
21K
1
Delphi XE2：这就是我们所期待的Delphi吗？

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

2009/12/11
551
7

deepin中配置robot framework环境

36分钟前
2
0
OSChina 周日乱弹 —— 钱不还，我就当你人不在了

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

114
4
EOS docker开发环境

20
0
《唐史原来超有趣》的读后感优秀范文3700字

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

30
0