Тема: Json данные
Показать сообщение отдельно
  #2  
Старый 01.05.2020, 06:45
pikabu pikabu вне форума
Прохожий
 
Регистрация: 27.12.2017
Сообщения: 30
Версия Delphi: 10.1
Репутация: 10
По умолчанию

Пробую так
Код:
var
i: integer;
s: string;
begin
IdHTTP1.Request.BasicAuthentication := True;
IdHTTP1.Request.Username :='login';
IdHTTP1.Request.Password:='password';
For i:=0 to slistbox3.Items.Count-1 do begin
 s:=IdHTTP1.get('https://blalbalba/counterparty/'+sListBox3.Items[i]);
  Memo1.Lines.Append(s);
      ParseStr(Memo1.text, '"name" : "', '",', sListBox4.Items);
end;

Данные получаю по ссылкам, но идет затроение Результат записывается три раза в listbox, почему?

P.S. понял, добавил в конец Memo1.text:='' теперь норм. Осталось только заменить все ссылки в листвью на значения из listbox4
Ответить с цитированием