就是一个位运算的加法问题，有什么难的
i:=0
if checkbox1.checked then i:=i+1
if checkbox2.checked then i:=i+1*2
if checkbox3.checked then i:=i+1*2*2
if checkbox4.checked then i:=i+1*2*2*2
if checkbox5.checked then i:=i+1*2*2*2*2
if checkbox6.checked then i:=i+1*2*2*2*2*2
if checkbox7.checked then i:=i+1*2*2*2*2*2*2
最后就得到i的值，跟二进制转换一模一样，例如得到了15这个值，也就是0001111
说明周一到周四被选中了。很简单
TransByte:Byte;
TransByte:=0;
case Day of
1:TransByte:=TransByte or 1;
2:TransByte:=TransByte or 2;
3:TransByte:=TransByte or 4;
4:TransByte:=TransByte or 8;
5:TransByte:=TransByte or 16;
6:TransByte:=TransByte or 32;
7:TransByte:=TransByte or 64;
end;
改一下
把期一到星期天的CheckBox的Tag属性依次赋值为1，2，4，8，16，32，64
OnClick事件都指向下面这个函数。
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if TCheckBox(Sender).Checked then
Week:=Week or TCheckBox(Sender).Tag
else
Week:=Week and (not TCheckBox(Sender).Tag);
end;
