用一個 Byte 數表示 8 個復選框的選擇狀態

本例效果圖:

　　代碼文件:

unit　Unit1;

interface

uses
　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms,
　Dialogs,　StdCtrls,　CheckLst;

type
　TForm1　=　class(TForm)
　　CheckListBox1:　TCheckListBox;
　　Button1:　TButton;
　　Edit1:　TEdit;
　　procedure　FormCreate(Sender:　TObject);
　　procedure　Button1Click(Sender:　TObject);
　　procedure　CheckListBox1Click(Sender:　TObject);
　end;

var
　Form1:　TForm1;

implementation

{$R　*.dfm}

var
　num:　Integer;

procedure　TForm1.FormCreate(Sender:　TObject);
begin
　Edit1.Text　:=　'輸入一個　Byte　數';
　CheckListBox1.Align　:=　alLeft;
　CheckListBox1.Items.CommaText　:=　'A,B,C,D,E,F,G,H';
end;

procedure　TForm1.Button1Click(Sender:　TObject);
var
　i:　Integer;
begin
　num　:=　Lo(StrToIntDef(Edit1.Text,　0));
　Edit1.Text　:=　IntToStr(num);
　for　i　:=　0　to　7　do　CheckListBox1.Checked[i]　:=　1　shl　i　or　num　=　num;
　Text　:=　IntToStr(num);
end;

procedure　TForm1.CheckListBox1Click(Sender:　TObject);
var
　i:　Integer;
begin
　num　:=　0;
　for　i　:=　0　to　7　do　if　CheckListBox1.Checked[i]　then　num　:=　num　or　1　shl　i;
　Text　:=　IntToStr(num);
　Edit1.Text　:=　Text;
end;

end.

　　窗體文件:

object　Form1:　TForm1
　Left　=　0
　Top　=　0
　Caption　=　'Form1'
　ClIEntHeight　=　127
　ClIEntWidth　=　231
　Color　=　clBtnFace
　Font.Charset　=　DEFAULT_CHARSET
　Font.Color　=　clWindowText
　Font.Height　=　-11
　Font.Name　=　'Tahoma'
　Font.Style　=　[]
　OldCreateOrder　=　False
　OnCreate　=　FormCreate
　PixelsPerInch　=　96
　TextHeight　=　13
　object　CheckListBox1:　TCheckListBox
　　Left　=　8
　　Top　=　8
　　Width　=　105
　　Height　=　113
　　ItemHeight　=　13
　　TabOrder　=　0
　　OnClick　=　CheckListBox1Click
　end
　object　Button1:　TButton
　　Left　=　128
　　Top　=　72
　　Width　=　75
　　Height　=　25
　　Caption　=　'Button1'
　　TabOrder　=　1
　　OnClick　=　Button1Click
　end
　object　Edit1:　TEdit
　　Left　=　119
　　Top　=　32
　　Width　=　98
　　Height　=　21
　　TabOrder　=　2
　　Text　=　'Edit1'
　end
end