在edit中输入一个数
怎么判断它与listbox的中的数据数否有重复的
没有重复的就添加在listbox,重复的就不要添加?
在edit中输入一个数
怎么判断它与listbox的中的数据数否有重复的
没有重复的就添加在listbox,重复的就不要添加?
需要那么复杂吗? 就一行代码。
procedure TForm1.Button1Click(Sender: TObject);
begin
with ListBox1.Items do if IndexOf(edit1.Text)<0 then Add(Edit1.Text);
end;
天哪。。使用listbox.item.indexof(edit1.text)如果返回-1则说明不存在,
如果存在,则返回所在的index。。。又必要弄那么复杂么。。 巨汗。。
在edit1.OnKeyPress事件中添加代码
procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
var
i: integer;
find: boolean; begin
find:= false;
for i:= 0 to ListBox1.Items.Count - 1 do
begin
if ListBox1.Items[i] = Edit1.Text then
begin
find:= true;
break;
end;
end;
if not find then ListBox1.Items.Add(Edit1.Text);
end;