[hugolom]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm2.Button1Click(Sender: TObject); begin   if Edit1.Text[Length(Edit1.Text)-1] <> '/' then //     Edit1.Text:= Edit1.Text+ '/';   //это отдельный проект              Http:= TIdHTTP.Create(nil);               if checkbox1.Checked=true then         http.ProxyParams.ProxyServer:=Copy(Edit2.Text,1,Pos(':',Edit2.Text)-1); http.ProxyParams.ProxyPort:=StrToInt(Copy(Edit2.Text,Pos(':',Edit2.Text)+1,Length(Edit2.Text))); begin

Надо чтоб при checkbox1.Checked=true прокси были, checkbox1.Checked=false проксей не было, как реализовать?

[lmikle]

как-то так:

Код:

1 2 3 4 5

if checkbox1.Checked  then    begin       http.ProxyParams.ProxyServer:=Copy(Edit2.Text,1,Pos(':',Edit2.Text)-1);       http.ProxyParams.ProxyPort:=StrToInt(Copy(Edit2.Text,Pos(':',Edit2.Text)+1,Length(Edit2.Text)));    end;