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

LazUtils, a small fix in TDictionaryStringList.InsertItem

Browse Source 
git-svn-id: trunk@40538 -
This commit is contained in:
juha 2013-03-12 15:41:54 +00:00
parent aeba11b9c8
commit 58b6eb6943
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/dictionarystringlist.pas
View File

@ -111,7 +111,7 @@ procedure TDictionaryStringList.InsertItem(Index: Integer; const S: string);
begin begin
// if FAssigning then Exit; // if FAssigning then Exit;
if (Duplicates <> dupAccept) and not Sorted then if (Duplicates <> dupAccept) and not Sorted then
if IndexOf(S) <> -1 then if FMap.Contains(S) then
case Duplicates of case Duplicates of
DupIgnore : Exit; DupIgnore : Exit;
DupError : raise Exception.Create('TDictionaryStringList.InsertItem:' DupError : raise Exception.Create('TDictionaryStringList.InsertItem:'