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中实现dll文件自动注册

Delphi 部分操作文件函数

Delphi 用正则表达式检查一个串是否是电信的手机号

Delphi 获取内核地址的简单方法

Delphi字符串中取数字

快速查询posex与posrightex

Delphi判断系统是否64位

Delphi 用iisreset命令重启iis

Delphi 关于禁止程序重复启动的另一种需要与实现

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

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