Пробую так
Код:
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