新手求教：如何删除TControlList中的选中字段或项？

你的TControlList是直接关联SQLite数据集fdmedcin来填充的，所以删除选中项要同步操作数据集和控件，具体步骤如下：

1. 单选删除（单次删除一个项） #

如果是单选模式，直接获取当前选中项的索引，定位到数据集对应记录后删除：

procedure TForm1.btnDeleteClick(Sender: TObject);
begin
  // 判断是否有选中项
  if ControlList1.ItemIndex = -1 then Exit;

  // 定位到数据集对应记录（你的索引逻辑是AIndex+1对应RecNo）
  dm.fdmedcin.RecNo := ControlList1.ItemIndex + 1;
  // 删除数据集里的目标记录
  dm.fdmedcin.Delete;
  // 更新ControlList的条目数，自动刷新显示
  ControlList1.ItemCount := dm.fdmedcin.RecordCount;
  // 清空选中状态（可选）
  ControlList1.ItemIndex := -1;
end;

2. 多选删除（批量删除多个项） #

如果允许多选，要注意从后往前删除（避免删除前面记录后，后续索引偏移导致错误）：

procedure TForm1.btnBatchDeleteClick(Sender: TObject);
var
  I: Integer;
begin
  // 倒序遍历选中索引，防止索引混乱
  for I := ControlList1.SelectedIndexes.Count - 1 downto 0 do
  begin
    dm.fdmedcin.RecNo := ControlList1.SelectedIndexes[I] + 1;
    dm.fdmedcin.Delete;
  end;
  // 更新条目数并清空选中状态
  ControlList1.ItemCount := dm.fdmedcin.RecordCount;
  ControlList1.SelectedIndexes.Clear;
end;

额外优化：自动同步数据集变化 #

可以把ControlList的条目数更新逻辑放到数据集的AfterDelete事件里，这样不用每次删除都手动写更新代码：

procedure TDM.fdmedcinAfterDelete(DataSet: TDataSet);
begin
  form1.ControlList1.ItemCount := fdmedcin.RecordCount;
end;

之后不管是通过按钮删除，还是其他方式操作数据集，ControlList都会自动同步条目数量。

内容的提问来源于stack exchange，提问作者toufik ben