два запроса в одном цикле

[Alex2009]

День добрый.
Есть такая задача, брать из RichEdit по 2 строки сразу, например в него записаны такие строки

1-1
2-2
3-3
4-4

Нужно взять первые 2 строки 1-1 и 2-2 и подставить их в запрос

У меня такой вот код, из 2-х запросов.

for i:=0 to RichEdit1.Lines.Count-1 do begin

HTTP.HTTPMethod('GET','запрос первый&=ВСТАВИТЬ 1-1);
HTTP.HTTPMethod('GET','второй&=ВСТАВИТЬ 2-2);

end;

Пробовал делать глобальную переменную numb

В Цикле делать так

numb := 0;

for i:=0 to RichEdit1.Lines.Count-1 do begin

inc(numb,2);

HTTP.HTTPMethod('GET','запрос первый&=+IntToStr(numb-1)+);
HTTP.HTTPMethod('GET','второй&=+IntToStr(numb)+);

end;

Но работает не корректно.

[Аватар]

  for i:=0 to (RichEdit1.Lines.Count-1) div 2 do begin
    берем RichEdit1.Lines.Strings[i*2] и RichEdit1.Lines.Strings[i*2+1];
  end;

[Alex2009]

Сообщение от Аватар

  for i:=0 to (RichEdit1.Lines.Count-1) div 2 do begin
    берем RichEdit1.Lines.Strings[i*2] и RichEdit1.Lines.Strings[i*2+1];
  end;

Попробую спасибо. Но тут нужна переменная так как обращение к i идет, что вызовет ошибку!)

[Аватар]

Но тут нужна переменная так как обращение к i идет, что вызовет ошибку

Ни кто и не запрещает i декларировать как integer

[Alex2009]

К сожалению не работает.

[Alex2009]

Так выглядит сейчас код

for i := 0 to (Form2.RichEdit8.Lines.Count-1) div 2 do
  begin
    if Terminated then Exit;

    // Запрос 1
gIds:=Copy(Form2.RichEdit8.Lines.Strings[i*1],Pos('wall',Form2.RichEdit8.Lines.Strings[i*1])+4,Length(Form2.RichEdit8.Lines.Strings[i*1]));

    HTTP.HTTPMethod('GET','запрос2&wall='+gIds);
    HTTP.Headers.Clear;
    

	// Запрос 2
    
gId:=Copy(Form2.RichEdit8.Lines.Strings[i*2+1],Pos('wall',Form2.RichEdit8.Lines.Strings[i*2+1])+4,Length(Form2.RichEdit8.Lines.Strings[i*2+1]));

    HTTP.HTTPMethod('GET','запрос2&wall='+gId);
    HTTP.Headers.Clear;
end;

Проблема в том что отправляется 2 запроса первый с 1-1 второй с 2-2. Затем следующий цикл отправляет не с 3-3 а с 2-2. Получается что повторения последнего.

[Аватар]

Form2.RichEdit8.Lines.Strings[i*1])

1 при каких делах? Речь о двойке шла