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

* Fixed for 9879

Browse Source 
git-svn-id: trunk@8760 -
This commit is contained in:
marco 2007-10-10 16:26:43 +00:00
parent 0021d0f27b
commit a19b22c48f
1 changed files with 22 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -352,19 +352,23 @@ begin
begin begin
Node[SType]:=IntToStr(Ord(DataType)); Node[SType]:=IntToStr(Ord(DataType));
DataNode:=Node.FirstChild; DataNode:=Node.FirstChild;
Case DataType of Result:=DataNode<>Nil; // Bug 9879. Create child here?
dtDWORD : DataNode.NodeValue:=IntToStr(PCardinal(@Data)^); If Result Then
dtString : begin begin
SetLength(S,DataSize); Case DataType of
If (DataSize>0) then dtDWORD : DataNode.NodeValue:=IntToStr(PCardinal(@Data)^);
Move(Data,S[1],DataSize); dtString : begin
DataNode.NodeValue:=S; SetLength(S,DataSize);
end; If (DataSize>0) then
dtBinary : begin Move(Data,S[1],DataSize);
S:=BufToHex(Data,DataSize); DataNode.NodeValue:=S;
DataNode.NodeValue:=S; end;
end; dtBinary : begin
end; S:=BufToHex(Data,DataSize);
DataNode.NodeValue:=S;
end;
end;
end;
end; end;
If Result then If Result then
begin begin
@ -711,11 +715,12 @@ Var
begin begin
N:=FindValueKey(OldName); N:=FindValueKey(OldName);
If (N<>Nil) then result:=n<>nil;
If (Result) then
begin begin
N[SName]:=NewName; N[SName]:=NewName;
FDirty:=True; FDirty:=True;
MaybeFlush; MaybeFlush;
end; end;
end; end;