ParseJSONVALUE wie geht das?

[mytbo]

Mit Delphi Berlin weiß ich nicht. Mit mORMot und Delphi Berlin so:

Delphi-Quellcode:

uses
  mormot.core.base,
  mormot.core.json;
  
type
  TResultRec = packed record
    data: record
      translations: array of record
        translatedText: RawUtf8;
      end;
    end;
  end;
  
const
  JSON: RawUtf8 = '{"data":{"translations":[{"translatedText":"Synthese und Bewertung der spektralen Eigenschaften von fluoreszierenden Sonden auf Basis des 7-(Diethylamino)cumarin-Rückgrats"}]}}';
var
  rec: TResultRec;
begin
  LoadJson(rec, JSON, TypeInfo(TResultRec));
  ShowMessage(Utf8ToSTring(rec.data.translations[0].translatedText));

In mORMot gibt es noch mehr Möglichkeiten.

Bis bald...
Thomas