我想将二进制代码更改为复选框。当 1checklistbox.checked = true
时 , 0时checklistbox.checked = false
。我在清单框中有 5 个项目。当 Tedit 填充 11111 和 00000 时,它工作得很好。但是,当我输入 11011 时,取消选中第四项,而不是第三项。
这是我的代码,
procedure TForm1.BUT_2Click(Sender: TObject);
var
i,j, k: Integer;
kode: array[0..6] of string;
// checkbox: array[1..5] of TCheckListBox;
begin
i:=0;
j:= 1;
kode[i]:= '0';
CheckListBOX2.Checked[i]:= True;
for i:=0 to Length(EDI_2.Text)-1 do
begin
kode[i]:= Copy(EDI_2.Text, i, j);
if kode[i]= '1' then
begin
CheckListBOX2.Checked[i]:= True;
end
else
begin
kode[i]:= Copy(EDI_2.Text, i, j);
CheckListBOX2.Checked[i]:= False;
end;
end;
end;
非常感谢您。