diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-08-19 17:04:05 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-08-19 17:04:05 +0000 |
| commit | e9ec1ce5d8e4aefb520ec244373e1841971d22b6 (patch) | |
| tree | d11d193e080c0009cc534fa30012c667dcffbd2f /packages/fcl-json/src | |
| parent | 12c5a85ad92d86d073542c82afa53302027f8327 (diff) | |
| download | fpc-e9ec1ce5d8e4aefb520ec244373e1841971d22b6.tar.gz | |
* Patch from Luiz Americo to fix TJSONBoolean.AsString, also fixed testcases
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@15854 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-json/src')
| -rw-r--r-- | packages/fcl-json/src/fpjson.pp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/fcl-json/src/fpjson.pp b/packages/fcl-json/src/fpjson.pp index 357ce86a6d..e8b6415df6 100644 --- a/packages/fcl-json/src/fpjson.pp +++ b/packages/fcl-json/src/fpjson.pp @@ -724,7 +724,7 @@ end; function TJSONboolean.GetAsString: TJSONStringType; begin - Result:=BoolToStr(FValue); + Result:=BoolToStr(FValue, True); end; procedure TJSONboolean.SetAsString(const AValue: TJSONStringType); |