ListBoxAddItems() 不重复添加Edit1
{不重复添加Edit1.text到列表框中}
// 调用 ListBoxAddItems(Edit1,ListBox1);
procedure ListBoxAddItems(Edit:TEdit;ListBox:TListBox);
begin
if ListBox.Items.IndexOf(Edit.Text)<0 then
begin
ListBox.Items.Add(Edit.Text);
Edit.SetFocus;
end;
end;