Delphi中用一個Byte數表示8個復選框的選擇狀態(2)

窗體文件:

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