Question

delphi三个CheckBox,点击一个按钮运算出我选中了几个,怎样写,要详细过程!单个判断也行

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
i := integer(checkbox1.Checked)+ integer(checkbox2.Checked)+integer(checkbox3.Checked);
showmessage('你选择的个数：'+inttostr(i));
end;