删除delphi组件TStringlist中的重复项目

发布时间：2020-12-15 09:10:44 所属栏目：大数据来源：网络整理

导读：https://blog.csdn.net/ozhy111/article/details/87975663 删除delphi组件TStringlist中的重复项目 2019年02月27日 15:41:15 ?ozhy111 ? 阅读数 81 ? procedure RemoveDuplicates(const stringList : TStringList) ; ?var ? ?buffer: TStringList; ? ?cnt: I

https://blog.csdn.net/ozhy111/article/details/87975663

删除delphi组件TStringlist中的重复项目

2019年02月27日 15:41:15?ozhy111?阅读数 81

procedure RemoveDuplicates(const stringList : TStringList) ;
?var
? ?buffer: TStringList;
? ?cnt: Integer;
?begin
? ?stringList.Sort;
? ?buffer := TStringList.Create;
? ?try
? ? ?buffer.Sorted := True;
? ? ?buffer.Duplicates := dupIgnore;
? ? ?buffer.BeginUpdate;
? ? ?for cnt := 0 to stringList.Count - 1 do
? ? ? ?buffer.Add(stringList[cnt]) ;
? ? ?buffer.EndUpdate;
? ? ?stringList.Assign(buffer) ;
? ?finally
? ? ?FreeandNil(buffer) ;
? ?end;
?end;

http://www.3sogou.com/read.php?tid=5013034&ds=1?

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!