Вопрос с циклом

[Ученик.6Б]

С исходником который дал, почему так?, его можно было проверить на своем сервере, запрос другой сделать, как я выше описал. Если там не решено, что выкладывать?, в других меню программы все работает и не будет к этому та работа относиться.
Зачем выкладывать то?, если это никак решить не можем. Исходник же дал. В чем там проблема? ничего не отображает, а должно как по вашему понимаю.

Лучше наверно сделать чтоб текстом в окне каждый выполненый цикл писало!?
Где-то так:
Выполнено 1
Выполнено 2
Выполнено 3
и т.д.

Пошагово не прогонял, да и запутался уже. Три часа точно прошло, сделать так или так...
Сделайте что в том исходнике который дал чтоб работало, что не надо удалите, что надо добавьте. Наверно можно чтоб в нем работало? Выложите ... а там уже я сам.

[Sibedir]

Пошагово не проверял, да и запутался уже

Запутался, это же не причина бросать. Попробуй. Установи точку останова в начале процедуры (установи курсор на begin и нажми F5). Потом F9. Когда программа дойдет до этого места продолжай выполнять ее пошагово (нажимая F7). Ты сразу наглядно увидишь что делает, а чего не делает программа.

запрос чтоб без ошибки был на сервер свой (например на сниффер) запрос сделайте

Чтобы запрос на сервер был без ошибки сделайте свой запрос (например на сниффер) - Так читается куда приятнее. Имейте немного уважения. Я пытаюсь вам же чем могу помочь вам.

Еще раз. Проблема не в этом. Запрос может выполнятся, может нет. Добавление строк в Memo не может не происходить.

if <условие> then
  <действия если ДА>
else
  <действия если НЕТ>

Одно из этих действий должно выполняться в любом случае. Если это не так, то выполнение не доходит до этого условия. Ошибка в логиге построения программы, а устронить ее не зная того, что и как делает программа, и что вообще нужно, НЕ ВОЗМОЖНО.

procedure TForm1.Button1Click(Sender: TObject);
var Data:TStringList;
begin
Data:=TStringList.Create;
Data.Add('a='+NEdit.Text);

Memo1.Lines.Clear;
for i := 1 to StrToInt (Edit1.Text) do begin

S:=IdHTTP1.Post('http://www.programmersforum.ru/newreply.php?do=postreply&t=103207', Data);

  if Pos('Atrue', S) = 0 then
    Memo1.Lines.Add ('Запрос - ' + IntToStr(i) + ' (' + TimeToStr(Now) + ')')
  else
    Break;
end;
if Pos('Atrue', S)=0 then Memo1.Lines.Add ('Ошибка')
else Memo1.Lines.Add ('Отправлено (' + TimeToStr(Now) + ')');
 end;

У меня вот это работает. Запросы отрабатывают. В Мемо строки добавляются.

И еще. Возникают ли у вас с вашим кодом системные ошибки (если да, то какие) и используете ли вы try.

[Ученик.6Б]

Вижу что хотите помочь, но не понять в чем проблема.
try не использую. проверил пошагово, вот -

if Pos('Atrue', S) = 0 then - отсюда
Memo1.Lines.Add ('Запрос - ' + IntToStr(i) + ' (' + TimeToStr(Now) + ')')
else
Break;
end;
if Pos('Atrue', S)=0 then Memo1.Lines.Add ('Ошибка') - переходит сразу сюда

Указал в коде какие строки пошагово не выполнились. В Memo1 ничто не замечалось. Ошибок небыло тоже. В чем дело, не понять? Может исходник выложите рабочий на нем проверю. Может в версии Delphi7 причина или в Indy (нужна может 9 или 10 версия)?

Почему еще, один запрос только, ввожу например пять, выполняется один.

[Sibedir]

Старайтесь соблюдать правила переносов. Это облегчает удобочитаемость

for ...
  if Pos('Atrue', S) = 0 then  здесь условие не выполнелось и перешло по
                                      ветке else через Break на выход из цикла
    Memo1.Lines.Add ('Запрос - ' + IntToStr(i) + ' (' + TimeToStr(Now) + ')')
  else
    Break;
end;

if Pos('Atrue', S)=0 then  условие опять не выполнелось, идем на else
  Memo1.Lines.Add ('Ошибка')
else
  Memo1.Lines.Add ('Отправлено (' + TimeToStr(Now) + ')'); вот это теперь должно отработать

Если хотите, чтобы выполнелось N-ое кол-во запросов

  for i := 1 to StrToInt (Edit1.Text) do begin
    S:=IdHTTP2.Post('http://www.programmersforum.ru/newreply.php?do=postreply&t=103207', Data);
    if Pos('Atrue', S) = 0 then
      Memo1.Lines.Add ('Не выполнено - ' + IntToStr(i) + ' (' + TimeToStr(Now) + ')')
    else
      Memo1.Lines.Add ('Выполнено - ' + IntToStr(i) + ' (' + TimeToStr(Now) + ')');
  end;

[Ученик.6Б]

for i := 1 to StrToInt (Edit1.Text) do begin
S:=IdHTTP2.Post('http://www.programmersforum.ru/newreply.php?do=postreply&t=103207' , Data);
if Pos('Atrue', S) = 0 then
Memo1.Lines.Add ('Не выполнено - ' + IntToStr(i) + ' (' + TimeToStr(Now) + ')')
else
Memo1.Lines.Add ('Выполнено - ' + IntToStr(i) + ' (' + TimeToStr(Now) + ')');
end;

Ошибка на end.
Добавил еще end; - все выводит, то что надо.

Спасибо!

[Ученик.6Б]

Такая проблемка стала: Запускаю прогу, указываю в цикле например 50, нажимаю на выполнение, работает, но если нажать например на ярлык на столе или на другое, вешается, становиться белого цвета и курсор если навести - песочные часы, хотя работает сама прога, выполняет цикл.

Как можно исправить эту проблему?

[Sibedir]

  S:=IdHTTP2.Post(<************>, Data);
  Application.ProcessMessages;

указываю в цикле например 50

Вы что пытаетесь атаку на сервер Microsoft устроить?

[Ученик.6Б]

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

  S:=IdHTTP2.Post(<************>, Data);
  Application.ProcessMessages;

Вы что пытаетесь атаку на сервер Microsoft устроить?

Нет не атаку, другое . Почему прога подвешивает, как решить эту проблему ?

[Sibedir]

Почему прога подвешивает

Программа работает
S:=IdHTTP2.Post(<************>, Data); пограмма ждет ответа от системы
Application.ProcessMessages; программа отрабатывает все накопившиеся события (отрисовка, реакция на нажатие кнопок)
Программа работает

[Ученик.6Б]

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

Программа работает
S:=IdHTTP2.Post(<************>, Data); пограмма ждет ответа от системы
Application.ProcessMessages; программа отрабатывает все накопившиеся события (отрисовка, реакция на нажатие кнопок)
Программа работает

Но есть к примеру флудер, взять асек, тоже по этому принципу работает, но такого нет.