Не выполняется участок кода

[NiKiToZZ-]

for i:=0 to proxylist.Lines.Count-1 do
begin
a:=proxylist.Lines[i];
end;
usedproxies.Lines.add(a);
proxylist.Lines.Delete(i);

не выполняется proxylist.Lines.Delete(i);
Если внести под цикл - сносит половину proxylist.

[Пепел Феникса]

а что вы хотите сделать этой строкой?

я думаю у вас должно быть в цикле все:
взяли прокси, проверили/использовали пошли дальше(и не надо ничего стирать)

[Человек_Борща]

а можно узнать смысл вашего действия?

[NiKiToZZ-]

Сообщение от Пепел Феникса

а что вы хотите сделать этой строкой?

я думаю у вас должно быть в цикле все:
взяли прокси, проверили/использовали пошли дальше(и не надо ничего стирать)

просто мне будет немного удобнее и приятнее работать с программой, если она загрузит прокси в twebbrowser и занесет его в usedproxies а из proxylist удалит. да и повторений в использовании таким образом можно избежать.
P.S да и к тому же при том условии, что написано у меня, все время в браузер будет добавляться последний адрес из списка, а остальные задействованы не будут.

Сообщение от Человек_Борща

а можно узнать смысл вашего действия?

подгрузка адреса в браузер, удаление из рабочего списка, добавление в отработанный.

[Serge_Bliznykov]

Пепел Феникса, +1

добавлю.

1)

не выполняется proxylist.Lines.Delete(i);

ну и чему будет равен i ПОСЛЕ окончания цикла?! правильный ответ - неизвестно чему - т.к. запрещено использовать переменные цикла ВНЕ самого цикла - они могут иметь неожиданное значение

2) если в цикле происходит удаление элементов, которое приводит к изменению количества элементов, то прямой цикл категорически не рекомендуется использовать.
нужно использовать или цикл FOR i:=ИндексПоследнегоЭлемента downto ИндексПервогоЭлемента do .... <удаление внутри цикла>

либо пользоваться циклами while / repeat.. until.

примерно так:

for i:=proxylist.Lines.Count-1 downto 0 do begin
   usedproxies.Lines.add( proxylist.Lines[i] );
   proxylist.Lines.Delete(i);
end;

[NiKiToZZ-]

Эмм... решение нашел сам, изменением кода до:

for i:=0 to proxylist.Lines.Count-1 do
  begin
  a:=proxylist.Lines[i];
  usedproxies.Lines.add(a);
  proxylist.Lines.Delete(i);
  exit;
  end;

На идею навел Serge_Bliznykov, спасибо.

[Пепел Феникса]

далее, цикл(for,while,repeat) и TWebBrowser вещи не совместимые.
он то загружает не сразу как написали Navigate.

[Serge_Bliznykov]

NiKiToZZ, ваш код выполнится только один раз, для i=0 и выйдет...


посмотрите, я в своё сообщение выше выложил пример кода, который обработает (и, соответственно, удалит) все строчки в proxylist!

[Пепел Феникса]

у вас стоит exit, вот скажите, и зачем там цикл ввобще?

[NiKiToZZ-]

Сообщение от Пепел Феникса

у вас стоит exit, вот скажите, и зачем там цикл ввобще?

Честно сказать - не знаю сам. Меня устраивает то что программа работает так, как нужно.