Ошибка в коде

← →
Pacific (2007-10-26 17:41) [0]

Здравствуйте! Немогли бы Вы помочь мне найти ошибку в коде.
Задача: random брать proxy из файла, а также random ссылку и заходить на данную ссылку через proxy.
Вот код:
procedure threed.Execute; var randomh, randomp, proxyhost, proxyport:string; proxy:Tstrings; x,y:integer; ok,o:integer; begin while form1.start=True do begin randomh:=form1.Memo1.Lines.Strings[random(form1.Memo1.Lines.Count-1)]; proxy:=Tstringlist.Create; proxy.LoadFromFile(form1.Edit1.Text); randomp:=proxy.Strings[random(proxy.Count-1)]; proxy.Free; x:=Pos(":", randomp); proxyhost:=copy(randomp, 1, x-1); proxyport:=copy(randomp, x+1, 255); form1.IdHTTP1.ProxyParams.ProxyPort:=strtoint(proxyport); form1.IdHTTP1.ProxyParams.ProxyServer:=proxyhost; try ok:=strtoint(form1.Label9.caption); Inc(ok); form1.Label9.Caption:=inttostr(ok); except o:=strtoint(form1.Label7.caption); Inc(o); form1.Label7.Caption:=inttostr(o); end; end; end;

← →
Reindeer Moss Eater © (2007-10-26 17:54) [1]

весь твой код - одна сплошная ошибка.

← →
Pacific (2007-10-26 17:58) [2]

ну хоть объяснить можете что я делаю не так?

← →
Reindeer Moss Eater © (2007-10-26 18:00) [3]

x:=Pos(":", randomp);
proxyhost:=copy(randomp, 1, x-1);
proxyport:=copy(randomp, x+1, 255);

А если попалась строка без ":" ?

← →
Pacific (2007-10-26 20:48) [5]

там везде :
127.0.0.1:80 пример :)

Ошибка в коде Найти похожие ветки