Superobject Delphi Примеры

SuperObject - это библиотека для работы с JSON в Delphi. С ее помощью можно легко создавать, изменять и парсить JSON-данные, что делает работу с этим форматом простой и удобной. Давайте рассмотрим несколько примеров использования SuperObject в Delphi.

Пример № 1: Создание JSON-объекта

var so: ISuperObject;begin so := TSuperObject.Create; so.S['name'] := 'John'; so.I['age'] := 30;end;

Пример № 2: Работа с JSON-массивом

var so: ISuperObject;begin so := TSuperObject.Create(stArray); so.AsArray.Add('John'); so.AsArray.Add(30);end;

Пример № 3: Парсинг JSON-строки

var s: string; so: ISuperObject;begin s := '{"name": "John", "age": 30}'; so := SO(s);end;

Пример № 4: Преобразование JSON-объекта в строку

var  so: ISuperObject;  s: string;begin  so := TSuperObject.Create;  so.S['name'] := 'John';  so.I['age'] := 30;  s := so.AsJSon;end;

Пример № 5: Обход JSON-дерева

var  so: ISuperObject;  it: TSuperObjectIter;begin  so := SO('{"name": "John", "age": 30}');  if Assigned(so) then  begin    if so.IsType(stObject) then    begin      SuperObject.ObjectFindFirst(so.O, it);      while SuperObject.ObjectFindNext(it) do      begin        // Обработка пары "ключ-значение"      end;    end;  end;end;