PackJSON(Objs : Variant) : String
Упаковать объекты в JSON строку

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

Пример:

Procedure OnCreate;
Var
  v : variant;
  initArray : Array Of String;
Begin
  v := CreateRecord;
  v.firstName := 'Иван';
  v.lastName := 'Иванов';
  v.address := CreateRecord;
  v.address.streetAddress := 'Московское ш., 101, кв.101';
  v.address.city := 'Ленинград';
  v.address.postalCode := 101101;
  v.phoneNumbers := [ '812 123-1234', '916 123-4567' ];

  Warning(PackJSON(v));

  // {"firstName":"Иван","lastName":"Иванов","address":{"streetAddress":
  // "Московское ш., 101, кв.101","city":"Ленинград","postalCode":101101},
  // "phoneNumbers":["812 123-1234","916 123-4567"]}
End;

© RTIT