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

本文整理自网络，侵删。

 
删除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 取得桌面文件夹的路径和取得我的文档的路径

Delphi 利用csidl打开特殊文件夹

Delphi 判断是否出现滚动条

Delphi 键盘记录源代码

Delphi滚动标题栏文字

Delphi 实现一个程序在另一个程序内运行

Delphi 颜色表

Delphi如何获取硬盘所有的分区容量

Delphi 查看内存数据的函数

Delphi dateof、timeof、yearof、monthof、weekof、dayof、hourof、minuteof、secondof、millisecondof �c 提取时间成分

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

转载请注明出处：木庄网络博客 » 删除delphi组件TStringlist中的重复项目