JSON mit Punkt im Namen

[Klaus01]

Delphi-Quellcode:

const
  jsonString = '{ "properties": { ' +
               '   "platform.wmbus.receivedMeters": { '+
               '     "name": "platform.wmbus.receivedMeters", '+
               '     "value": [ '+
               '         "01280XXX", '+
               '         "03780XXX" '+
               '     ]}}}';

var
  jsonArray: TJsonArray;
  jsonObj: TJsonObject;

begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    jsonObj := TJSONObject.ParseJSONValue(jsonString) as TJSONObject;
    jsonArray := JsonObj.GetValue<TJsonArray>('["properties"]["platform.wmbus.receivedMeters"]["value"]');
    if jsonArray.Count > 0 then
      writeLn(jsonArray.Items[0].GetValue<String>);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

funktioniert tadellos.

Grüße
Klaus