Delphi7，创建组合框项目

Question

我想使用组合框为用户提供多种选项。所以有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') > future 。

无论如何，您希望代码能够在 100% 的所有情况下运行，而不是 99.9%。此外，上述模式很容易识别，至少对我来说有助于理解代码。如果您始终使用相同的模式，代码会变得更容易在心理上解析。