列表框如何禁止重复项？

Question

我在看http://delphi.about.com/od/tlistbox/a/list-box-onchange-drag-drop.htm 我想知道是否有可能添加禁止这样的重复项目的能力，如果是这样，我将如何去做呢？

由于

-Brad

Answer 1

要防止列表框中出现重复项，只需在添加目标项之前检查该项目是否存在。

function ItemExists(ListBox: TListBox; const Item: string): Boolean;
begin
  Result := ListBox.Items.IndexOf(Item) >= 0;
end;

在致电Items.Add之前调用该功能。如果返回True，请不要致电Items.Add。

Answer 2

我经常使用;

var
  item1 : string;
begin
  item1 := Trim(eSym1.Text);
  if ListBox1.Items.IndexOf(item1) < 0 then
    ListBox1.Items.Add(item1);
end;