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

* Allow Boolean -> TValue

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-12-03 23:38:20 +01:00
parent 5887b1fee3
commit eb08fd88f2
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/vcl-compat/src/system.json.pp
View File

@ -1619,7 +1619,13 @@ end;
function TJSONBool.AsTValue(aTypeInfo: PTypeInfo; var aValue: TValue): Boolean; function TJSONBool.AsTValue(aTypeInfo: PTypeInfo; var aValue: TValue): Boolean;
begin begin
Result:=inherited AsTValue(aTypeInfo, aValue); if aTypeInfo^.Kind=tkBool then
begin
TValue.Make(@FValue,aTypeInfo,aValue);
Result:=True;
end
else
Result:=inherited AsTValue(aTypeInfo, aValue);
end; end;
constructor TJSONBool.Create(aValue: Boolean); constructor TJSONBool.Create(aValue: Boolean);