[@Puck]

Здесь буду задавать по мере поступления свои вопросы по дельфи.

1.
Пытаюсь подключить к регеру прокси. При нажатии на кнопку, выскакивает ошибка:
EStringsListError with message list index out of bounds(0).
Код:

i:integer;
all:tstringlist;
s, ip, port2:string;

for i:=0 to strtoint(edit1.Text) do //цикл до значения едита
s:=all[i]; //присваиваю переменной s значение ip:port строки i массива всех проксей
ip:=copy(s,1,pos(':',s)-1); //получаю ип
port2:=copy(s,pos(':',s)+1,length(s)); //получаю порт
idhttp1.proxyparams.ProxyServer:=ip;
idhttp1.proxyparams.ProxyPort:=strtoint(port2);

Где ошибка? Убейте, не пойму.

[@dark]

за пределы массива выходишь. edit1.Text - тут, по коду, у тебя вроде как количество проксей должно быть?

[@Puck]

Сообщение от dark

за пределы массива выходишь. edit1.Text - тут, по коду, у тебя вроде как количество проксей должно быть?

В edit1 у меня, сколько аккаунтов нужно зарегистрировать.

Добавлено через 1 минуту
Весь код
Оффтоп

Скрытый текст (вы должны войти под своим логином или зарегистрироваться и иметь 100 сообщение(ий)):

У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.
Чтобы его прочитать, вы должны заработать сообщения. Как это сделать бесплатно, описано в правилах форума. Как купить доступ, описано в Платных услугах.

[@dark]

Сообщение от Puck

В edit1 у меня, сколько аккаунтов нужно зарегистрировать.

for i:=0 to strtoint(edit1.Text) do //цикл до значения едита
s:=all[i]; //присваиваю переменной s значение ip:port строки i массива всех проксей

тогда вообще не пойму, в массиве all у тебя прокси же?

[@Puck]

Да.
if opendialog1.Execute then
all.LoadFromFile(opendialog1.filename);

Я хочу, что бы 1 аккаунт регился под 1 прокси, второй под вторым.

[@dark]

Сообщение от Puck

Да.
if opendialog1.Execute then
all.LoadFromFile(opendialog1.filename);

Я хочу, что бы 1 аккаунт регился под 1 прокси, второй под вторым.

а ты уверен, что у тебя количество проксей и акков одинаковое?)

[@Puck]

for i:=0 to all.count do можно и так, смысл не изменится.

так и без цикла ошибка тоже.

[@dark]

port2:=copy(s,pos(':',s)+1,length(s));

ты уверен в выделенной части? )

[@Puck]

Я безнадежен :3