|
#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'ам. Спасибо за помощь! |
#2
|
||||
|
||||
Так?
Код:
edit1.Text:= memo1.lines[0]; edit2.Text:= memo1.lines[1]; edit3.Text:= memo1.lines[2]; edit4.Text:= memo1.lines[3]; — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |