Question

我想使用combobox为用户提供各种选项。所以有2个组合框。第一个有大约5个选项，第二个项目将根据用户在第一个组合框中选择的内容创建。

到目前为止，我已经尝试了这个：Combobox2.Items.Strings[1]:='xxxx'这个错误出现了我：

List out of Bound.

我该怎么办？

Answer 1

要在运行时填充TComboBox，您可以这样做[1]：

ComboBox1.Items.BeginUpdate;
try
  ComboBox1.Items.Clear;
  ComboBox1.Items.Add('Alpha');
  ComboBox1.Items.Add('Beta');
  ComboBox1.Items.Add('Gamma');
  ComboBox1.Items.Add('Delta');
finally
  ComboBox1.Items.EndUpdate;
end;

您还可以为其指定预制的TStringList：

ComboBox1.Items.Assign(MyStringList);

[1]：

try..finally部分很重要，因为如果没有它，如果在BeginUpdate和EndUpdate之间引发异常而不处理，则组合框将保留（“卡住”）它的“更新”状态，从那时起就会出现故障。

当然，在这个简单的例子中，异常的风险很小，但在其他情况下它可能很重要。代码可能会更改：您可能会在将来添加ComboBox1.Items.Add(MightRaise())或if MightRaise() then ComboBox1.Items.Add('Epsilon')。

无论如何，您希望代码在所有情况下都有效，而不是99.9％。此外，上述模式很容易识别，至少对我来说有助于理解代码。如果您始终使用相同的模式，则代码将更容易在心理上解析。

Answer 2

事件onSelect ComboCox1

procedure TForm1.ComboBox1Select(Sender: TObject);

begin

ComboBox2.Text  :=  ComboBox1.Text;

end;

Delphi7，创建组合框项目

2 个答案: