Tstringlist 怎么 除重复内容
Tstringlist 如何 除重复内容?Delphi(Pascal) codelist.add(a)list.add(a)list.add(a)list.add(
Tstringlist 如何 除重复内容?
Delphi(Pascal) codelist.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;