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

[Ученик.6Б]

Такой код:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP;

type
TForm1 = class(TForm)
IdHTTP1: TIdHTTP;
NEdit: TEdit;
Button1: TButton;
ResultLabel: TLabel;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
var S:string;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var Data:TStringList;
begin
Data:=TStringList.Create;
Data.Add('artrib='+NEdit.Text);
S:=IdHTTP1.Post('http://microsoft.com/index.php?id=1'+NEdit.Text, Data);
if Pos('Atrue', S)<>0 then
ResultLabel.Caption:='Отправлено'
else
ResultLabel.Caption:='Ошибка';
end;

end.

Хочу второй едит, чтоб ввести число (например - 5) и выполнилось 5 раз POST запрос (http://microsoft.com/index.php...), но никак не получается. Помогите!

[Sibedir]

var
  i: Integer;

...

for i := 1 to StrToInt (Edit2.Text) do begin
  S:=IdHTTP1.Post('http://microsoft.com/index.php?id=1'+NEdit.Text, Data);
end;

[Ученик.6Б]

Sibedir - СПАСИБО!!! Просто не так делал, код больше сам, выложил кусок, с твоим советом понял, чуть тупил (запутался). Новичек еще, но раздел и есть для таких, так что простительно.

Вот еще один вопрос, при каждом запросе чтоб выводилась надпись (1 - запрос: цифра 1, 2 - запрос: цифра 2 и т. д.) в самом конце "Отправлено".

[Sibedir]

при каждом запросе чтоб выводилась надпись

Выводилась куда?
--------------------------
Так что-ли?

for i := 1 to StrToInt (Edit2.Text) do begin
  S:=IdHTTP1.Post('http://microsoft.com/index.php?id=1'+NEdit.Text, Data);
  ResultLabel.Caption:=IntToStr(i);
end;

Или так?

for i := 1 to StrToInt (Edit2.Text) do begin
  S:=IdHTTP1.Post('http://microsoft.com/index.php?id=1'+NEdit.Text, Data);
  if Pos('Atrue', S) = 0 then
    ResultLabel.Caption:='Запрос - ' + IntToStr(i)
  else
    Break;
end;
if Pos('Atrue', S)=0 then
  ResultLabel.Caption:='Ошибка'
else
  ResultLabel.Caption:='Отправлено';

[Ученик.6Б]

Не выходит так, в ResultLabel только после запросов пишется как и было "Отправлено", числовых перечислений нет на каждый запрос. Только это осталось.

[Sibedir]

Дык все правильно. Запрос проходит с первого раза. Если нужно жестко N раз (хотя не понятно зачем), то используй первый вариант. Но и там есть вероятность, что ты просто не успеешь увидить надписи с цифрами. Цикл отработает очень быстро и программа снова напишет "Отправлено".
--------------------------------------
Вместо TLabel можно использовать TMemo. Там будет видна вся последовательность.

Memo1.Lines.Clear;
for i := 1 to StrToInt (Edit2.Text) do begin
  S:=IdHTTP1.Post('http://microsoft.com/index.php?id=1'+NEdit.Text, 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) + ')');

[Ученик.6Б]

Использовал TMemo как посоветовали, но ничего не выводится, никакой надписи, ни "Отправлено" даже. В чем дело?

[Sibedir]

Давай весь исходник.

[Ученик.6Б]

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

Давай весь исходник.

Здесь я тестовый исходник дал.
Насчет кнопочки вложения учту, не знал.

[Sibedir]

Замечание: в расширеном режиме ответа есть кнопочка вложения. Для 3,5кВ в будущем лучше пользоваться ей.

Вопрос: Что ввести в качестве запроса?