如何避免TStringList里的Items雷同？

问题：

如何避免TStringList里的Items雷同？

解答：

利用属性Duplicates来做避免：  

var  sl : TStringList;begin  sl := TStringList.Create;  with sl do  begin    Sorted     := True;    Duplicates := dupIgnore;

    //    // 在这里添加 items，所有雷同的会忽略    //    Add(Input1.text);  end;

  ListBox1.Items.Assign(sl);  sl.Free;end;