第1个回答 2013-11-27
delphi版本:土方法procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,e,f,g,h:string;
begin
a:='';
b:='';
c:='';
d:='';
e:='';
f:='';
g:='';
h:='';
if checkbox1.Checked=true then
a:=checkbox1.Caption;
if checkbox2.Checked=true then
b:=checkbox2.Caption;
if checkbox3.Checked=true then
c:=checkbox3.Caption;
if checkbox4.Checked=true then
d:=checkbox4.Caption;
if checkbox5.Checked=true then
e:=checkbox5.Caption;
if checkbox6.Checked=true then
f:=checkbox6.Caption;
if checkbox7.Checked=true then
g:=checkbox7.Caption;
h:=a+b+c+d+e+f+g;
edit1.Text:=h;
end;