[LELIKS]

HI!
Смотрел на форуме, не нашел примера. Нужно чтоб цикл брался из Edit и выполнялся в один поток POST запросом.

[LELIKS]

Сложный вопрос или непонятно написал? Что нибудь хоть написали.

[Assistant]

не понятно, подробнее.

[LELIKS]

Вот пример:

Код:

type
  TForm1 = class(TForm)
  Edit1: TEdit
procedure Button1Click(Sender: TObject);
...
...
procedure TForm1.Button1Click(Sender: TObject);
var
 Data:TStringList;
 i:Byte;
begin
 Data:=TStringList.Create;
 for i := 1 to StrToInt (Edit1.Text) do begin
 S:=IdHTTP1.Post('http://kremlin.ru/, Data);
 Application.ProcessMessages();
 ...
end;

Админ: Учимся корректно оформлять код!

Нужен пример кода в один поток, принцип работы как в примере.

[einstein]

тут и так один поток

[LELIKS]

Здесь форма при цикле подвисает и из 500 циклов выполняется 200-300 где-то. С таким кодом ненормальная работа) Тему можно закрыть, пока совета дождешься самому погуглить лучше и т. п.. Форум на мыло, толку от него, в носу ковыряетесь)