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

* fix: Return Default value by TRegIniFile.ReadXXX methods if requested registry value does not exist.

Browse Source 
git-svn-id: trunk@7242 -
This commit is contained in:
yury 2007-05-02 11:54:28 +00:00
parent 73f3b5163a
commit 7f6dec9db4
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-registry/src/regini.inc
View File

@ -104,6 +104,7 @@ begin
Result := Default; Result := Default;
if not OpenKey(fPath+Section,false) then Exit; if not OpenKey(fPath+Section,false) then Exit;
try try
if ValueExists(Ident) then
Result := inherited ReadBool(Ident); Result := inherited ReadBool(Ident);
finally finally
CloseKey; CloseKey;
@ -115,6 +116,7 @@ begin
Result := Default; Result := Default;
if not OpenKey(fPath+Section,false) then Exit; if not OpenKey(fPath+Section,false) then Exit;
try try
if ValueExists(Ident) then
Result := inherited ReadInteger(Ident); Result := inherited ReadInteger(Ident);
finally finally
CloseKey; CloseKey;
@ -126,6 +128,7 @@ begin
Result := Default; Result := Default;
if not OpenKey(fPath+Section,false) then Exit; if not OpenKey(fPath+Section,false) then Exit;
try try
if ValueExists(Ident) then
Result := inherited ReadString(Ident); Result := inherited ReadString(Ident);
finally finally
CloseKey; CloseKey;