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;