|
#1
|
||||
|
||||
SuperObject
Всем привет, не могу спарсить данные из memo по Edit'ам.
Использую библиотеку superobject, прошу помощи. Имеется такой текст в memo: Код HTML:
Код:
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'ам. Спасибо за помощь! |