GitHub-Mirror/x2utils
1
0
Fork 0
mirror of synced 2024-12-22 17:23:07 +01:00
Code Issues Projects Releases Wiki Activity

Fixed: attempt to read back variants as the correct type

Browse Source
This commit is contained in:
Mark van Renswoude 2011-03-29 09:05:11 +00:00
parent cb92eabcf1
commit c8f791fce5
1 changed files with 40 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
X2UtPersistXML.pas
View File

@ -283,9 +283,22 @@ var
value: IXMLvalue;
begin
Result := GetValue(AName, value, False) and (value.Hasvariant);
Result := GetValue(AName, value, False);
if Result then
begin
if value.Hasinteger then
AValue := value.integer
else if value.Hasfloat then
AValue := value.float
else if value.Has_string then
AValue := value._string
else if value.Hasint64 then
AValue := value.int64
else if value.Hasvariant then
if value.variantIsNil then
AValue := Null
else
@ -376,9 +389,30 @@ begin
begin
if VarIsNull(AValue) or VarIsClear(AValue) then
value.variantIsNil := True
else
begin
case VarType(AValue) of
varSmallint,
varInteger:
value.Integer := AValue;
varSingle,
varDouble,
varCurrency:
value.float := AValue;
varInt64:
value.Int64 := AValue;
varOleStr,
varStrArg,
varString:
value._string := AValue;
else
value.variant := AValue;
end;
end;
end;
end;