paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* TRegistryIniFile: Fixed uninitialized Result in ValueExists(). Implemented SectionExists().

Browse Source 
git-svn-id: trunk@48206 -
This commit is contained in:
yury 2021-01-19 17:13:44 +00:00
parent 9fd0f94d7c
commit 2c196ee8a9
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
packages/fcl-registry/src/registry.pp
View File

@ -266,6 +266,7 @@ type
procedure DeleteKey(const Section, Name: String); override;
procedure UpdateFile; override;
function ValueExists(const Section, Ident: string): Boolean; override;
function SectionExists(const Section: string): Boolean; override;
property RegIniFile: TRegIniFile read FRegIniFile;
end{$ifdef XMLREG}deprecated 'Use TRegistry instead. Will be removed in 4.0'{$endif} platform;
@ -1125,13 +1126,18 @@ end;
function TRegistryIniFile.ValueExists(const Section, Ident: string): Boolean;
begin
with FRegInifile do
if OpenSection(Section) then
try
Result:=FRegInifile.ValueExists(Ident);
finally
CloseSection;
end;
Result:=FRegInifile.OpenSection(Section);
if Result then
try
Result:=FRegInifile.ValueExists(Ident);
finally
FRegInifile.CloseSection;
end;
end;
function TRegistryIniFile.SectionExists(const Section: string): Boolean;
begin
Result:=FRegIniFile.KeyExists(Section);
end;
{$ifdef XMLREG}