DBXJSON in XE4

[Captnemo]

Ah, jetzt hab ich's kapiert (denke ich mal

Meine Funktion sieht jetzt so aus:

Delphi-Quellcode:

  function GetJsonValue (json: string; Identifier: string) : string;
    function ExtractQuoteStr(QoutedStr: string): string;
    begin
      Result:=QoutedStr;
      if Result[1]='"' then
        Result:=Copy(Result, 2, length(Result));
      if Result[Length(Result)]='"' then
        Result:=Copy(Result, 1, length(Result)-1);
    end;
  var
    jsonObj:   TJsonObject;
    pair:      TJSONPair;
  begin
    Result:='';
    jsonObj:=TJSONObject.ParseJSONValue(json) as TJSONObject;
    try
      for pair in jsonObj do
      begin
        if ExtractQuoteStr(pair.JsonString.ToString)=Identifier then
          Result:=ExtractQuoteStr(pair.JsonValue.ToString);
      end;
    finally
      jsonObj.Destroy();
    end;
  end;

So kann ich mir einfach über den Identifier die dazu gehörige Value aus dem JSON-String holen.

Danke an alle.