删除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 获取硬盘序列号(ide,sata,scsi)

相对完整的多线程idhttp文件下载代码

monthdays：给出一个月的天数

Delphi 内存读取、修改

[Delphi] 计算目录大小的函数，获得目录文件列表，计算文件的大小

Delphi 打开资源管理器并定位到指定目录下的文件

Delphi 获取cpu占用时间

Delphi 如何从url提取文件名？

crossbow病毒开放源代码-熊猫烧香源始代码

Delphi 下保存真彩彩图标的方法实例

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

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