遍历CheckBox并获取值

[Dision LI]

var
i:Integer;
frmComponent:TComponent;
z : String;
begin //确定
with GroupBox1 do
begin
for i:=0 to ControlCount-1 do
begin
if Controls[i] is TCheckBox then
if TCheckBox(Controls[i]).Checked =true then
z := TCheckBox(Controls[i]).Caption;
zz := zz +','+z;
end;
end;
Dialogs.ShowMessage(zz);
end;
怎么遍历容器上CheckBox 值为true的caption?

[skylkj]

var
   i:integer;
begin
for i:=1 to form1.ComponentCount do
   begin
   if form1.Components[i-1] is Tcheckbox then
      begin
      if Tcheckbox(form1.Components[i-1]).checked then
         showmessage(Tcheckbox(form1.Components[i-1]).caption);
      end;
   end;
end;

[Dision LI]

奇怪哦!
showmessage(Tcheckbox(form1.Components[i-1]).caption);
1楼你那句可以弹出被选择的内容
但是为什么我加个变量z,改成
z := Tcheckbox(form1.Components[i-1]).caption;
showmessage(z);
就会弹出没被选中的那些的空值

[genispan]

加错地方了吧？

[skylkj]

      if Tcheckbox(form1.Components[i-1]).checked then
         begin
         z:=Tcheckbox(form1.Components[i-1]).caption;
         showmessage(z);
         end;

没问题啊

你是不是if下面没有begin end?

[Dision LI]

with GroupBox1 do
begin
for i:=0 to ControlCount-1 do
if Controls[i] is Tcheckbox then
begin
if Tcheckbox(Controls[i]).checked then
z :=Tcheckbox(Controls[i]).caption;
Dialogs.ShowMessage(z); //同等于showmessage(z);
end;
end;
这里是我写的代码
我在容器上遍历的而不是窗体上.

[blazingfire]

var
  i: Integer;
  frmComponent: TComponent;
  //z: string;
  zz: string; //再次定义一下
begin //确定
  zz := '';//初始化一下，免得出编译提示
  with GroupBox1 do
  begin
    for i := 0 to ControlCount - 1 do
    begin
      if Controls[i] is TCheckBox then
        if TCheckBox(Controls[i]).Checked then
          zz := zz + ',' + TCheckBox(Controls[i]).Caption;
    end;
  end;
  Dialogs.ShowMessage(zz);
end

[skylkj]

[Quote=引用 5 楼 ameken 的回复:]
with GroupBox1 do
begin
for i:=0 to ControlCount-1 do
if Controls[i] is Tcheckbox then
begin
if Tcheckbox(Controls[i]).checked then
z :=Tcheckbox(Controls[i]).caption;
Dialogs.ShowMessage(z); //同等于showmessage(z);
end;
end;
这里是我写的代码
我在容器上遍历的而不是窗体上.
[/Quote]

if Tcheckbox(Controls[i]).checked then
begin
z :=Tcheckbox(Controls[i]).caption;
Dialogs.ShowMessage(z); //同等于showmessage(z);
end;

[Dision LI]

blazingfire 与skylkj 两位牛人的方法都正确
是小弟的失误,少了个begin ...end
最后还有个问题
zz := zz + ',' + TCheckBox(Controls[i]).Caption;
这里判断只有一个的时候不能根据i来判断吧?
指的是只有一个TCheckBox为true的时候我怎么判断?不要逗号

[oushengfen]

呵呵,都解决了,来顶一下.

[genispan]

if Tcheckbox(Controls[i]).checked then
begin
z :=Tcheckbox(Controls[i]).caption;
Dialogs.ShowMessage(z); //同等于showmessage(z);
end;


记得放在begin end之间