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 删除或清空一个目录(包含多级)

Delphi中利用钩子实现qq聊天窗口的修改

Delphi xe 制作的萤光时钟，可改作屏保

Delphi简单读取网上的文本文件

Delphi 关于汉字换行问题

Delphi xe5复制粘贴操作

Delphi 关于构造方法的重写

Delphi获取闲置时间

Delphi 用iisreset命令重启iis

Delphi 10.3.x与android 10兼容性的问题

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

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