DBXJSON in XE4

[Captnemo]

Ich hab's halt so gemacht, wie ich es verstehe bzw. verstanden habe.

Wenn ich es besser machen kann, dann nehme ich das gerne an, nur weiß ich leider nicht, was ihr meint.

Das JSON Quotes verwendet ist ja schön und gut, aber pair.JsonValue.ToString liefert mir nun mal die Quotes mit zurück, und die gehören definitiv nicht zum String, sondern die hat mir er mich mit dieser Procedure

Delphi-Quellcode:

  json:=TJSONObject.Create;
  for I := 0 to FWaagen.Count-1 do
  begin
    if not FWaagen[i].Pfoertner then
    begin
      jso:=TJSONObject.Create;
      jso.AddPair(TJSONPair.Create('Uptime', FWaagen[i].Uptime));
      jso.AddPair(TJSONPair.Create('Wiegungen', FWaagen[i].Wiegungen));
      jso.AddPair(TJSONPair.Create('Letzte Wiegung', FWaagen[i].LetzteWiegung));
      jso.AddPair(TJSONPair.Create('ComStatus', FWaagen[i].ComStatus));
      json.AddPair(FWaagen[i].guid, jso.ToString);
    end;
  end;

da auch selber reingesetzt. Und weil er sie nunmal nicht selber wieder rausnimmt, hab ich's halt selbst gemacht.

Die GetJsonValue-Function habe ich ja schon gepostet.

Zitat von Union:

Ja, warum verwendest Du nicht die Get() Methode? Und wenn Du die schon nachprogrammierst, dann solltest Du den richtigen Vergleich verwenden.
if pair.JsonString.Value = Identifier

Was meinst du mit Get() Methode?

Ich vermute jetzt mal, wenn ich es richtig machen, dann würde er mir die Quotes wohl auch selber rausnehmen (genauso wie das '\"', was ebenfalls gerade zu einem Problem wurde).

Mir ist klar, dass ich das noch nicht korrekt gemacht habe, aber ich gebe mir mühe.