如何避免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;