UnpackJSON(Text : String) : Variant
Распаковать JSON строку

Функция UnpackJSON возвращает значение String,Integer,Float,Record,Array Of Variant, причем последние два типа могут содержать произвольное кол-во значений.

Пример:

Procedure OnCreate;
Var
  s : String;
  v : Variant;
Begin
  s := '{'+Chr(10)+
       '    "firstName": "Иван",'+Chr(10)+
       '    "lastName": "Иванов",'+Chr(10)+
       '    "address": {'+Chr(10)+
       '        "streetAddress": "Московское ш., 101, кв.101",'+Chr(10)+
       '        "city": "Ленинград",'+Chr(10)+
       '        "postalCode": 101101'+Chr(10)+
       '    },'+Chr(10)+
       '    "phoneNumbers": ['+Chr(10)+
       '        "812 123-1234",'+Chr(10)+
       '        "916 123-4567"'+Chr(10)+
       '    ]'+Chr(10)+
       '}';
       
  v := UnpackJson(s);
  
  Warning(v.firstName As String);
  Warning(v.lastName As String);
  Warning(v.address.city As String);
  Warning(v.phoneNumbers.item(1) As String);
End;

© RTIT