防止Inno Setup中列表框和组合框中的重复项目？

Question

我从互联网接收XML文件（来自XML的值可能会有所不同，因为有货币）。然后我将它加载到列表框1.用户可以使用一些按钮（逐个，全部，删除等）将项目添加到列表框2。所以我想防止重复。我找不到任何办法。

我的列表框：

这是我的代码（对于XML解析部分，请参阅How to read multiple XML nodes? (Inno Setup)）：

XMLNodeList := XMLDocument.SelectNodes('//listaPaises/item');
for Index := 0 to XMLNodeList.length - 1 do
begin
  XMLNode := XMLNodeList.item[Index];

  { Add country }
  comboBoxPais.Items.Add(XMLNode.SelectSingleNode('name').Text); 

  { Add currency }
  listBoxMonedasDisponibles.Items.Add(XMLNode.SelectSingleNode('suggestedCurrency').Text);

  listBoxMonedasDisponibles.ItemIndex := 0;
  comboBoxPais.ItemIndex := 0;
end;

Answer 1

TComboBox.Items和TListBox.Items都属于TStrings类型。

使用TStrings.IndexOf来测试给定字符串是否已存在。如果字符串不存在，则返回负数（-1）。

{ Add S only, if not present already }
if comboBox.Items.IndexOf(S) < 0 then 
  comboBox.Items.Add(S);