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


本文整理自网络,侵删。

 
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;

相关阅读 >>

Delphi byte、pbyte、tbytes的转换

Delphi为你的窗体有效地提供剪贴板的相关操作

Delphi isipadress 非正则表达式验证ip的方法

Delphi 字符串、文件路径 排序算法

Delphi编程实现sql server挂起清除

Delphi操作多显示器

Delphi api实现抓屏

Delphi getforegroundwindow 与 getactivewindow 的区别

Delphi版inf方式加载驱动

Delphi xe7写的一个http post的小测试程序

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...