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

* Patch from #27002, better handling of terminating #0's.

Browse Source 
git-svn-id: trunk@29217 -
This commit is contained in:
marco 2014-12-08 10:03:09 +00:00
parent 8508d25f8e
commit 3e24a9ebfd
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -373,6 +373,7 @@ function TRegistry.ReadString(const Name: string): string;
Var
Info : TRegDataInfo;
ReadDataSize: Integer;
begin
GetDataInfo(Name,Info);
@ -381,11 +382,19 @@ begin
If Not (Info.RegData in [rdString,rdExpandString]) then
Raise ERegistryException.CreateFmt(SInvalidRegType, [Name]);
SetLength(Result,Info.DataSize);
If StringSizeIncludesNull then
SetLength(Result, Info.DataSize-1)
ReadDataSize := GetData(Name,PChar(Result),Info.DataSize,Info.RegData);
if ReadDataSize > 0 then
begin
// If the data has the REG_SZ, REG_MULTI_SZ or REG_EXPAND_SZ type,
// the size includes any terminating null character or characters
// unless the data was stored without them! (RegQueryValueEx @ MSDN)
if StringSizeIncludesNull then
if Result[ReadDataSize] = #0 then
Dec(ReadDataSize);
SetLength(Result, ReadDataSize);
end
else
SetLength(Result, Info.DataSize);
GetData(Name,PChar(Result),Info.DataSize,Info.RegData);
Result := '';
end
else
result:='';