DBXJSON in XE4

[Union]

z.B. So:

Delphi-Quellcode:

program DPJSon;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  Data.DBXJSON;

procedure DumpJSON;
var
  LJSONObject : TJSONObject;
  LJSONPair  : TJSONPair;
begin
  LJSONObject := TJSONObject.ParseJSONValue(
    TEncoding.ASCII.GetBytes('{"Uptime":"0T 0H 0M 25S","Wiegungen":"0","Letzte Meldung":"30.12.1899 00:00:00","Waage":"Verbunden"}'), 0) as TJSONObject;

  // Alle auflisten
  for LJSONPair in LJSONObject do
  begin
    Write(LJSONPair.JsonString.Value + '=');
    Writeln(LJSONPair.JsonValue.Value);
  end;

  // Einen bestimmten auflisten
  write('Wert von "Letzte Meldung" ');
  Writeln(LJSONObject.Get('Letzte Meldung').JsonValue.Value);
  Readln;
end;

begin
  DumpJSON;
end.