@sysrpl I use your parser, because fpJsonparser can't parse JSON, when there are duplicate keys.
Everything works fine, but ...
There is a key with price (always with 4 decimal places, but last 2 digits are zero), ie.
'price1': 0.9900
'price2': 1.9900
I get this price using such code:
p1 := n.Find('price1').AsNumber // p1: double
p2 := n.Find('price2').AsNumber // p2: double
ShowMessage(FloatToStr(p1+p2));
At 2 computers (Windows 10) I didn't have any problems, but at one computer (Windows 10) sometimes above code shows 0 instead 2.98
I modified code to check if parser gets proper JSON value:
p1 := n.Find('price1').AsNumber // p1: double
p2 := n.Find('price2').AsNumber // p2: double
pj1 := n.Find('price1').AsJSON // pj1: string
pj2 := n.Find('price2').AsJSON // pj2: string
ShowMessage(FloatToStr(p1+p2) + LineEnding + p1 + LineEnding + p2));
Then it shows:
0
0.9900
1.9900
Everything works fine after restarting app. Problem occures again after some time
So It seems that getting value AsNumber is broken