delphi 去除 TStringList 重复项

本文整理自网络，侵删。

 
//去除 TStringList 重复项
procedure RemoveDuplicates(const AStrs: TStringList);
var
    Buf: TStringList;
    Idx: Integer;
begin
    AStrs.Sort;
    Buf := TStringList.Create;
    try
        Buf.Sorted := True;
        Buf.Duplicates := dupIgnore;
        Buf.BeginUpdate;
        for Idx := 0 to AStrs.Count - 1 do begin
           Buf.Add(AStrs[Idx]) ;
        end;
        Buf.EndUpdate;
        AStrs.Assign(Buf) ;
    finally
        FreeandNil(Buf) ;
    end;
end;

http://www.delphifmx.com/node/29
 

相关阅读 >>

Delphi中dbgrid控件数据库点击某列按序排列

在Delphi xe6 firemonkey移动应用程序的twebbrowser html页面上运行javascript

Delphi暴力关机代码

Delphi滚动标题栏文字

Delphi 利用datasnap进行数据流(tstream)的传递

Delphi combobox 只读 text属性可用的方法

Delphi强制刷新注册表方法

win32全局钩子在Delphi下实现的关键技术

Delphi 中的哈希表: thashedstringlist

Delphi清除右下角的托盘上无用的托盘图标(刷新托盘)

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

转载请注明出处：木庄网络博客 » delphi 去除 TStringList 重复项