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

* Attempt to fix bug ID #31277

Browse Source 
git-svn-id: trunk@35344 -
This commit is contained in:
michael 2017-01-27 21:47:27 +00:00
parent 1a771735ac
commit bc9b67c90b
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-registry/src/xmlreg.pp
View File

@ -296,7 +296,8 @@ Var
BL,ND,NS : Integer;
S : UTF8String;
HasData: Boolean;
IntValue: Integer;
D : DWord;
begin
Node:=FindValueKey(Name);
Result:=Node<>Nil;
@ -313,9 +314,9 @@ begin
Case DataType of
dtDWORD : begin // DataNode is required
NS:=SizeOf(Cardinal);
Result:=HasData and TryStrToInt(DataNode.NodeValue,IntValue) and (DataSize>=NS);
Result:=HasData and TryStrToDWord(DataNode.NodeValue,D) and (DataSize>=NS);
if Result then
PCardinal(@Data)^:=IntValue;
PCardinal(@Data)^:=D;
end;
dtString : // DataNode is optional
if HasData then