Доброй ночи!
Избитая тема уже, но вот опять вопрос!
Delphi7, получаю JSon-строку из 1С. Там формат простой и стандартный.
Нужно разобрать полученные данные, а дальше обработать их, загрузить, обновить...
Вот формат данных (массив записей):

Вроде все просто. Берем SuperObject. Но он такую структуру не разбирает. Ему нужно это все обернуть в
{"Units":
тут то что выше.
}
т.е. дать название массива.

Хотелось бы не изменять переданные структуры.
Можно обойтись в Delphi7 чем-то простым и эффективным для данного случая?

Спасибо.

Видимо я не совсем понимаю работу SuperObject.
Подскажите

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
aO: ISuperObject;
begin
s :=
'{"ww":[' +
' {' +
' "ID": "359",' +
' "UnitID": "сут",' +
' "UnitName": "Сутки",' +
' "IsDel": 0' +
' },' +
' {' +
' "ID": "349",' +
' "UnitID": "Кл/кг",' +
' "UnitName": "Кулон на килограмм",' +
' "IsDel": 1' +
' }' +
' ]}';

aO := SO(s);
ShowMessage(aO.A['ww'].O[0].S['ID']);

end;

на экране 359

Это получается обращение к именованному массиву, а к не именованному как обратиться?
procedure TForm1.Button1Click(Sender: TObject);
var s: string;
aO: ISuperObject;
begin
s :=
'[' +
' {' +
' "ID": "359",' +
' "UnitID": "сут",' +
' "UnitName": "Сутки",' +
' "IsDel": 0' +
' },' +
' {' +
' "ID": "349",' +
' "UnitID": "Кл/кг",' +
' "UnitName": "Кулон на килограмм",' +
' "IsDel": 1' +
' }' +
' ]';

aO := SO(s);
ShowMessage(aO.A[??????].O[0].S['ID']);

end;

????? - что там указать, пробовал '' - ошибка.

Уточню, мне нужно пройти по всем записям массива и считать каждое свойство.
и если не трудно, есть ли свойство - сколько записей всего в массиве?

Спасибо

ъъъъъ,
Большое спасибо, все получилось!
С Новым годом и Рождеством!!!

Всех!!!