unit fpjson function TJSONObject.DoFormatJSON(...) needs initialization
Original Reporter info from Mantis: jtm_1986
-
Reporter name: Jay Themon
Original Reporter info from Mantis: jtm_1986
- Reporter name: Jay Themon
Description:
The function TJSONObject.DoFormatJSON(...) on line 1915 needs to add the line:
Result := '';
at line 1923 at the beginning of the function.
Failure to do so leads to uninitialized data infiltrating the results.
Additional information:
@@ -1920,6 +1920,7 @@ Var
begin
+ Result := '';
CurrentIndent:=CurrentIndent+Indent;
For I:=0 to Count-1 do
begin
Mantis conversion info:
- Mantis ID: 24603
- Build: SVN 24886 (actually from git)
- Version: 2.6.3
- Fixed in version: 2.6.4
- Fixed in revision: 25220 (#8c68fa57)
- Target version: 3.0.0