从组合框中删除选定的组件 DELPHI

Question

我有 ComboBox4、ComboBox1 和 Button5 当我单击 Button5 时，程序应从 ComboBox4 和 ComboBox1 组件列表中删除在 combobox4 中选择的组件。但是我使用以下代码得到列表越界错误...

procedure TForm1.Button5Click(Sender: TObject);
var
cat : Integer;
trinti: TComponent;
catT : String;
begin
catT := ComboBox4.Text;
cat := ComboBox4.Items.IndexOf(catT);
trinti := ComboBox4.Components[cat];

ComboBox1.Items.BeginUpdate;
ComboBox4.Items.BeginUpdate;
  ComboBox4.RemoveComponent(trinti);
  ComboBox1.RemoveComponent(trinti);
ComboBox1.Items.EndUpdate;
ComboBox4.Items.EndUpdate;

removeCat(catT);
end;

请帮忙:(

Answer 1

Components 属性和RemoveComponent 方法在这里使用是错误的。这些用于所有权和生命周期管理。通常，表单上唯一拥有任何东西的就是表单本身。所以在组合框上使用Components总是会报错。

您需要使用组合框的Items 属性及其Delete 方法。它可能看起来像这样：

var
  Index: Integer;
....
catT := ComboBox4.Text;
Index := ComboBox4.Items.IndexOf(catT);
if Index <> -1 then
  ComboBox4.Items.Delete(Index);