Tstringlist 怎么除重复内容

Tstringlist 如何除重复内容？

Delphi(Pascal) code


list.add('a');
list.add('a');
list.add('a');
list.add('b');
list.add('b');
list.add('b');
list.add('c');
list.add('c');
list.add('c');

如何除掉重复内容呀！

------解决方案--------------------
var
List: TStringList;
begin
List := TStringList.Create;
List.Sorted := True; //需要先指定排序
List.Duplicates := dupIgnore; //如有重复值则放弃
list.add('a');
list.add('a');
list.add('a');
list.add('b');
list.add('b');
list.add('b');
list.add('c');
list.add('c');
list.add('c');
end;

Tstringlist 怎么 除重复内容

相关推荐

Tstringlist 怎么除重复内容