Показать сообщение отдельно
Старый 20.02.2012, 00:02   #1
Puck
Разбанен. На испытательном сроке.
Аватар для Puck
OFFLINE
Регистрация: 23.10.2010
Сообщений: 615
Благодарностей:
2,863 всего
Мнения: + 7881
Репутация: 8590

Вопросов delphi тема


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

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);

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

(\__/)
(='.'=)
(")_(")


Это Кролик. Скопируй кролик себе в подпись, чтобы помочь ему на пути к мировому господству!
 
Ответить с цитированием