delphi CheckListBox1 全选 和 取消 全选

delphi CheckListBox1 全选 和 取消 全选

要在 Delphi 中实现 TCheckListBox 的全选和取消全选功能，可以使用以下代码：

uses
  Vcl.CheckLst;
  
procedure SelectAll(CheckListBox: TCheckListBox; Select: Boolean);
var
  i: Integer;
begin
  for i := 0 to CheckListBox.Count - 1 do
  begin
    CheckListBox.Checked[i] := Select;
  end;
end;
// 示例调用
begin
  // 全选
  SelectAll(CheckListBox1, True);
  // 取消全选
  SelectAll(CheckListBox1, False);
end;
这个代码定义了一个 SelectAll 过程，它接受一个 TCheckListBox 和一个布尔值 Select 作为参数。如果 Select 为 True，则选中所有项目；如果 Select 为 False，则取消选中所有项目。然后在示例调用中，分别调用 SelectAll 过程来实现全选和取消全选功能。