Código Delphi [-] var i: Integer; begin for i := 1 to 11 do begin with TCheckbox(FindComponent('CheckBox' + IntToStr(i))) do begin Checked:= true; end; end;
var i: Integer; begin for i := 1 to 11 do begin with TCheckbox(FindComponent('CheckBox' + IntToStr(i))) do begin Checked:= true; end; end;