json Trouble getting JSON FindValue (JSONPath) to work

[omnibrain 23]

I'm trying to use JSONPath via TJSONObject.FindValue in my program. I'm using Delphi 11.

 

I broke it down to the easiest example and I still can't get it to work:

{
  "name": "Chris",
  "value": 10000
}

Path: 

$.name

My Code after stripping away everything else:

  var myjson:=TJSONObject.ParseJSONValue('{"name": "Chris","value": 10000}');
  var myval:=myjson.FindValue('$.name');
  ergebnis.Text:=myval.Value;

The JSON get's parsed, but the FindValue returns 'nul'.

Am I doing something completely wrong?

[Der schöne Günther 336]

Take at the look at the documentation again, it has some examples. Get Rid of the $ and the dot.

program Project1;

uses System.SysUtils, System.JSON;

begin
  var myjson:=TJSONObject.ParseJSONValue('{"name": "Chris","value": 10000}');
  var myval:=myjson.FindValue('name');
  Assert(myVal.Value() = 'Chris');
end.

Or here, with arrays:

 

program Project1;

uses System.SysUtils, System.JSON;

const
  json =
    '{'+
    '	"name": "Chris",'+
    '	"pets": ['+
    '		{'+
    '			"name": "Rufus",'+
    '			"type": "dog",'+
    '			"age": 10'+
    '		},'+
    '		{'+
    '			"name": "Wraabargl",'+
    '			"type": "Dinosaur",'+
    '			"age": 113'+
    '		}'+
    '	]'+
    '}';
begin
  var myjson:=TJSONObject.ParseJSONValue(json);
  var myval:=myjson.FindValue('pets[1].type');
  Assert(myVal.Value() = 'Dinosaur');
  readln;
end.

 

[omnibrain 23]

Thanks, it works now. 🙂

 

Perhaps it's me being daft, but I cloud not read either from System.JSON.TJSONObject.FindValue - RAD Studio API Documentation (embarcadero.com) or System.JSON.TJSONPathParser - RAD Studio API Documentation (embarcadero.com) that I don't need to address the document root. Or is there some documentation/example I missed?

[Der schöne Günther 336]

Not that I know. Here is another example

System.JSON.Builders.TJSONIterator.Find - RAD Studio API Documentation (embarcadero.com)

 

Maybe I just forgot $., was glad it worked, and then moved on. 🙃