listbox

Question

我要往 listbox1 添加记录,怎样避免重复添加. 

Answer 1

with listbox1.Items do
if(IndexOf(s)<0)then Add(s);

Answer 2

procedure TForm1.Button2Click(Sender: TObject);
var
  sList : Tstringlist;
  listbox : TListBox;
begin
  listbox := TListBox.Create(self);
  with listbox do
  begin
    Parent := self;
    Align := alLeft;    Items.Add('aaa');
    Items.Add('bbb');
    Items.Add('aaa');
    Items.Add('ccc');
    Items.Add('ccc');
    Items.Add('ddd');    sList := TStringList.Create;
    sList.Sorted := True;
    sList.Duplicates := dupIgnore;    sList.Text := Items.Text;
    Items.Text := sList.Text;
  end;
  sList.Free;
end;