paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 01:10:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added AddReplacesExisting

Browse Source 
git-svn-id: trunk@26728 -
This commit is contained in:
michael 2014-02-08 13:14:25 +00:00
parent b7c6455b89
commit 4490a61981
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-base/src/inifiles.pp
View File

@ -61,6 +61,7 @@ type
TStringHash = class TStringHash = class
private private
FAddReplacesExisting: Boolean;
FHashList : TFPDataHashTable; FHashList : TFPDataHashTable;
public public
constructor Create(ACapacity : Cardinal = 256); constructor Create(ACapacity : Cardinal = 256);
@ -70,6 +71,7 @@ type
function Modify(const Key: string; Value: Integer): Boolean; function Modify(const Key: string; Value: Integer): Boolean;
procedure Remove(const Key: string); procedure Remove(const Key: string);
function ValueOf(const Key: string): Integer; function ValueOf(const Key: string): Integer;
Property AddReplacesExisting : Boolean Read FAddReplacesExisting Write FAddReplacesExisting;
end; end;
{ THashedStringList } { THashedStringList }
@ -262,7 +264,8 @@ end;
procedure TStringHash.Add(const Key: string; Value: Integer); procedure TStringHash.Add(const Key: string; Value: Integer);
begin begin
FHashList.Add(Key, Pointer(Value)); if Not (AddReplacesExisting and Modify(Key,Value)) then
FHashList.Add(Key, Pointer(Value));
end; end;
procedure TStringHash.Clear; procedure TStringHash.Clear;