.我用一个Edit构件来向ListBox添加条目，但是如果添加的条目ListBox中已经有了，则不再添加到ListBox。怎么办？

Question

procedure TForm1.Button1Click(Sender: TObject);
 var
  str:string;
begin
  str:=edit1.Text;
  if listbox1.Items.IndexOf(str)=-1 then
    listbox1.Items.Add(str);
end;

Answer 1

同意——
为了完美起见，
可以
if 
 ...
else
 ...

Answer 2

简单的说，可以用遍历的方法进行查找，也可以利用TStringList的查找函数进行判断。

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
 var
  str:string;
begin
  str:=trim(edit1.Text);//去除左右的空字符，这样更好
  if listbox1.Items.IndexOf(str)=-1 then
    listbox1.Items.Add(str);
end;