关于checklistbox如何全选和不选和选一个或几个?

Question

怎么用button控制checklistbox里的item被全选，或全不选

Answer 1

写个循环
全选
checklistbox.selected[i] := true
全不选
checklistbox.selected[i] := false

Answer 2

procedure TForm1.CheckBox1Click(Sender: TObject);
var i:integer;
begin    for i:=0 to CheckListBox1.Count-1 do
     CheckListBox1.State[i]:=cbChecked
//下边是全不选的
    for i:=0 to CheckListBox1.Count-1 do
     CheckListBox1.State[i]:=cbUnChecked;
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin    for i:=0 to CheckListBox1.Count-1 do
     CheckListBox1.State[i]:=cbChecked
//下边是全不选的
    for i:=0 to CheckListBox1.Count-1 do
     CheckListBox1.State[i]:=cbUnChecked;
end;