Форматирование JSON с SuperObject

@sahar · Регистрация: 03.01.2013

Студворк — интернет-сервис помощи студентам

SuperObject сохраняет JSON-объекты в файлы через Объект.SaveTo(Путь) вот в таком виде:

JavaScript
1
{"a":"b","c":"d"}

Можно ли заставить его форматировать при сохранении так:

JavaScript
1
2
3
4
{
  "a": "b",
  "c": "d"
}

@volvo · 16.02.2014, 20:20

Второй параметр в SaveTo - это indent, по умолчанию равный False, поэтому никакого форматирования не происходит. Передай True - будет форматирование...

@JenyaZ · 23.02.2015, 11:55

sahar, Не в тему спрашиваю извиняюсь заранее,
можете рассказать как подключить модуль Superobject ? уже один день мучаюсь ))

@sahar · 23.02.2015, 11:57 **[ТС]**

Археолог... Скачиваешь, кладёшь в папку с проектом и суёшь в uses.

@JenyaZ · 23.02.2015, 12:03

Спасибо sahar

Добавлено через 3 минуты
sahar, Еще вопрос а есть какие нибудь куры по SuperObject как этим пользоваться ?
И в uses это прописывать superobject и superxmlparser

@sahar · 23.02.2015, 12:48 **[ТС]**

Задай вопрос кому-нибудь другому, я уже давно на Delphi не пишу.

@krapotkin · 01.03.2015, 10:14

если еще актуально, для последних версий лучше взять X-Superobject
с примерами

@NotBeginner · 02.03.2015, 17:44

Сообщение от krapotkin

если еще актуально, для последних версий лучше взять X-Superobject

это для старых версий?
или для новых, где в коробке есть работса json, тоже лучшее ее использовать?

@krapotkin · 03.03.2015, 16:27

это для новых версий делфи
у меня XE7
несмотря на то что в ней есть JSON из коробки, эта реализация мне удобнее
например, она умеет форматировать JSON для просмотра и печати, не просто в одну строку

@edrёn_baton · 14.06.2018, 14:26

Сообщение от krapotkin

она умеет форматировать JSON для просмотра и печати

Подскажите название функции для этого?

@krapotkin · 14.06.2018, 14:28

AsJSON(см.параметры)

@edrёn_baton · 20.06.2018, 11:04

Сообщение от krapotkin

AsJSON(см.параметры)

А как ему "сказать", чтобы кодировку не менял? А то получается так:
Исходная

JSON
1
{"personId" : 17926214, "lastName" : "Петров", "firstName" : "Алексей"}

Получилось

JSON
1
2
3
4
5
{
  "personId":  17926214,
  "lastName":"\u041f\u0435\u0442\u0440\u043e\u0432",
  "firstName":"\u0410\u043b\u0435\u043a\u0441\u0435\u0439"
}

Сам код:

Delphi
1
2
3
4
5
6
7
8
var
  A: ISuperArray;
begin
  try
    A := SA(Memo2.Lines.Text);
    Memo1.Clear;
    Memo1.Text := A.AsJSON(true);
  except

@krapotkin · 20.06.2018, 11:09

прогнать строку через UnescapeJson
https://bitbucket.org/vkrapotk... rc/master/

@edrёn_baton · 20.06.2018, 14:47

Сообщение от krapotkin

через UnescapeJson

Отлично работает. Спасибо

Новые блоги и статьи Все статьи Все блоги /
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@volvo Супер-модератор 33369 / 21495 / 8234 Регистрация: 22.10.2011 Сообщений: 36,889 Записей в блоге: 12
	16.02.2014, 20:20
	Сообщение было отмечено sahar как решение Решение Второй параметр в SaveTo - это indent, по умолчанию равный False, поэтому никакого форматирования не происходит. Передай True - будет форматирование... 0

@JenyaZ 0 / 0 / 0 Регистрация: 20.10.2014 Сообщений: 4
	23.02.2015, 11:55
	sahar, Не в тему спрашиваю извиняюсь заранее, можете рассказать как подключить модуль Superobject ? уже один день мучаюсь )) 0

@sahar 10 / 10 / 2 Регистрация: 03.01.2013 Сообщений: 73
	23.02.2015, 11:57 [ТС]
	Археолог... Скачиваешь, кладёшь в папку с проектом и суёшь в uses. 1

@JenyaZ 0 / 0 / 0 Регистрация: 20.10.2014 Сообщений: 4
	23.02.2015, 12:03
	Спасибо sahar Добавлено через 3 минуты sahar, Еще вопрос а есть какие нибудь куры по SuperObject как этим пользоваться ? И в uses это прописывать superobject и superxmlparser 0

@sahar 10 / 10 / 2 Регистрация: 03.01.2013 Сообщений: 73
	23.02.2015, 12:48 [ТС]
	Задай вопрос кому-нибудь другому, я уже давно на Delphi не пишу. 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,656 Записей в блоге: 21
	01.03.2015, 10:14
	если еще актуально, для последних версий лучше взять X-Superobject с примерами 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,656 Записей в блоге: 21
	03.03.2015, 16:27
	это для новых версий делфи у меня XE7 несмотря на то что в ней есть JSON из коробки, эта реализация мне удобнее например, она умеет форматировать JSON для просмотра и печати, не просто в одну строку 1

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,656 Записей в блоге: 21
	14.06.2018, 14:28
	AsJSON(см.параметры) 1

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,656 Записей в блоге: 21
	20.06.2018, 11:09
	прогнать строку через UnescapeJson https://bitbucket.org/vkrapotk... rc/master/ 1

Форматирование JSON с SuperObject

Решение