Всем привет, не могу спарсить данные из 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'ам.
Спасибо за помощь!