Тема: SuperObject
Показать сообщение отдельно
  #1  
Старый 03.10.2014, 16:38
Аватар для AmNeZiA
AmNeZiA AmNeZiA вне форума
Прохожий
 
Регистрация: 20.03.2011
Сообщения: 29
Репутация: 10
По умолчанию SuperObject

Всем привет, не могу спарсить данные из memo по Edit'ам.
Использую библиотеку superobject, прошу помощи.
Имеется такой текст в memo:
Код HTML:
Строка №1 Строка №2 Строка №3 Строка №4
Код:
procedure TForm1.Button7Click(Sender: TObject);

var
  obj1: ISuperObject;
   post:tstringlist;
   result:string;
   cJSON:string;
begin
cJSON:=memo1.text;
  obj1 := SO(cJSON);
   edit1.Text:= obj1.S['adventures.list[0].Строка №1'];
  edit2.Text:= obj1.S['adventures.list[1].Строка №2'];
  edit3.Text:= obj1.S['adventures.list[2].Строка №3'];
  edit4.Text:= obj1.S['adventures.list[3].Строка №4'];
end;

Помогите раскинуть по Edit'ам.
Спасибо за помощь!
Ответить с цитированием