paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +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; BL,ND,NS : Integer;
S : UTF8String; S : UTF8String;
HasData: Boolean; HasData: Boolean;
IntValue: Integer; D : DWord;
begin begin
Node:=FindValueKey(Name); Node:=FindValueKey(Name);
Result:=Node<>Nil; Result:=Node<>Nil;
@ -313,9 +314,9 @@ begin
Case DataType of Case DataType of
dtDWORD : begin // DataNode is required dtDWORD : begin // DataNode is required
NS:=SizeOf(Cardinal); 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 if Result then
PCardinal(@Data)^:=IntValue; PCardinal(@Data)^:=D;
end; end;
dtString : // DataNode is optional dtString : // DataNode is optional
if HasData then if HasData then