listbox

[代码跳动]

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

[Seamour]

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

[纯冰糖]

对，靠IndexOf进行判断

[代码跳动]

高手出台,先结贴,分少了点...^o^.

[simonhehe]

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;