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 文件查找记录类型 - tsearchrec

Delphi format中的换行符号是什么

Delphi inc () 计数用法

Delphi 游戏测试call

Delphi 完美的线程注入和卸载

Delphi 修改快捷方式

Delphi设置光标在edit右边

Delphi-edit中只能输入数字且只能输入一个小数点

Delphi 移动客户端的路径的安全正确的写法

Delphi byte、pbyte、tbytes的转换

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

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