我有以下代码。我怎样才能简化这一点,使用循环或不同的较短版本?
if checkbox1.Checked = true then
begin
a := 1;
end
else
begin
a := 0;
end;
if checkbox2.Checked = true then
begin
b := 1;
end
else
begin
b := 0;
end ;
if checkbox3.Checked = true then
begin
c := 1;
end
else
begin
c := 0;
end;