paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 08:40:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Add a Deduplicate procedure for DictionaryStringList. Issue #27249, patch from Antônio Galvão.

Browse Source 
git-svn-id: trunk@47321 -
This commit is contained in:
juha 2015-01-08 20:56:39 +00:00
parent ac935867c3
commit 9bbe6f00a1
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/lazutils/dictionarystringlist.pas
View File

@ -53,9 +53,25 @@ type
function IndexOf(const S: string): Integer; override; function IndexOf(const S: string): Integer; override;
end; end;
procedure Deduplicate(AStrings: TStringList);
implementation implementation
procedure Deduplicate(AStrings: TStringList);
var
DSL :TDictionaryStringList;
begin
if AStrings.OwnsObjects then
raise Exception.Create('Deduplicate: OwnsObjects in AStrings is not supported.');
DSL := TDictionaryStringList.Create;
try
DSL.Assign(AStrings);
AStrings.Assign(DSL);
finally
DSL.Free;
end;
end;
{ TDictionaryStringList } { TDictionaryStringList }
constructor TDictionaryStringList.Create; constructor TDictionaryStringList.Create;