CheckListBox1 取值

var
i:integer;
begin
Checklistbox1.MultiSelect:=True;
for i:=0 to checklistbox1.Items.Count-1 do
CheckListBox1.Checked[i] := True;

//删除选中记录

for i:=CheckListBox1.Items.Count-1 downto 0 do
if checklistbox1.Checked[i]=True then
Checklistbox1.Items.Delete(i);

//删除全部

Checklistbox1.MultiSelect:=True;
Checklistbox1.SelectAll;
Checklistbox1.DeleteSelected;

CheckListBox1.Checked[CheckListBox1.ItemIndex]为True，表示已选中；
CheckListBox1.Items[CheckListBox1.ItemIndex]就是选中的Items值

 

procedure TfrmSystemSetup.download_save_btnClick(Sender: TObject);
var
  I: Integer;
  receiver_state_filter_str: string;
  fun_write_setup_ini_result: string;
begin
  receiver_state_filter_str := '';
  for I := 0 to receiver_state_clb.Items.Count-1 do
  begin
    if receiver_state_clb.Checked[I] then
    begin
      receiver_state_filter_str := receiver_state_filter_str + ',' + receiver_state_clb.Items[I];//注意这里直接
    end;
  end;
  receiver_state_filter_str := Copy(receiver_state_filter_str,2,Length(receiver_state_filter_str));
  fun_write_setup_ini_result := fun_write_setup_ini('receiver_state_filter','receiver_state_filter',receiver_state_filter_str);
  if fun_write_setup_ini_result ='yes' then
  begin
    //提示
    ShowMessage('保存成功');
  end else begin
    ShowMessage('保存不成功,请和在线客服联系');
  end;
end;