DBXJSON in XE4

[Der schöne Günther]

Was ist dein Plan mit "zerlegen"? Die einzelnen Paare da heraus extrahieren?
Ansonsten hier das Beispiel zur grade verlinkten Doku:

Delphi-Quellcode:

program Project25;

{$APPTYPE CONSOLE}

{$R *.res}

uses
   System.SysUtils, Data.DBXJson, Data.DBXJSONReflect, System.JSON;

const
   meinString = '{"Uptime":"0T 0H 0M 25S","Wiegungen":"0","Letzte Meldung":"30.12.1899 00:00:00","Waage":"Verbunden"}';

procedure justJsonThings();
var
   jsonObj:   TJsonObject;
   pairIndex:   Integer;
   pair:      TJSONPair;
begin
   jsonObj := TJsonObject.ParseJSONValue(meinString) as TJSONObject;
   try
      for pairIndex := 0 to Pred(jsonObj.Count) do begin
         pair := jsonObj.Pairs[pairIndex];
         WriteLn(pair.ToJSON());
      end;
   finally
      jsonObj.Destroy();
   end;
end;


begin
  try
   justJsonThings();
  except
   on E: Exception do
     Writeln(E.ClassName, ': ', E.Message);
  end;
  readln;
end.

System.Json gab es in XE4 noch nicht, die Typen wie TJsonObject steckten da, glaube ich, noch in Data.DBXJSONReflect .

Oder willst du (das glaube ich eher) zwischen deinem TWiegeStatus und JSON umwandeln?