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

DictionaryStringlist: Deduplicate: allow the AStrings to have objects if it does not own them.

Browse Source 
git-svn-id: trunk@47328 -
This commit is contained in:
bart 2015-01-10 15:35:20 +00:00
parent 0c1a2ec8fe
commit f2491ead05
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/lazutils/dictionarystringlist.pas
View File

@ -53,22 +53,25 @@ type
function IndexOf(const S: string): Integer; override;
end;
function Deduplicate(AStrings: TStrings): Boolean;
function Deduplicate(AStrings: TStrings; AStringsOwnsObjects: Boolean = True): Boolean;
implementation
{
Removes duplicate strings (case sensitive) from the AStrings object
When the AStrings contains objects, the function will return false.
Removes duplicate strings (case sensitive) from AStrings.
When the AStrings owns and contains objects, the function will return false.
}
function Deduplicate(AStrings: TStrings): Boolean;
function Deduplicate(AStrings: TStrings; AStringsOwnsObjects: Boolean): Boolean;
var
i: Integer;
DSL: TDictionaryStringList;
begin
Result := False;
for i := 0 to AStrings.Count - 1 do
if AStringsOwnsObjects then
begin
for i := 0 to AStrings.Count - 1 do
if Assigned(AStrings.Objects[i]) then Exit;
end;
DSL := TDictionaryStringList.Create;
try
DSL.Assign(AStrings);