本文整理自网络,侵删。
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;
相关阅读 >>
idhttp访问网页出现socket error #10054错误
Delphi urldownloadtofile 支持进度条
更多相关阅读请进入《Delphi》频道 >>