интервал чисел в edit-ax. последовательное склеивание

@Bovan · Регистрация: 22.08.2013

Author24 — интернет-сервис помощи студентам

есть 2 edit на форме. я задаю в них -минимальное число и максимальное число. затем есть нужно чтобы склеивалось ссылка+число по порядку в заданном диапазоне.

Delphi

procedure TForm1.Button2Click(Sender: TObject);
var
  site:string   ;
  zoa,zhoa, x: Real;
begin
  site:='http://ссылка/';
   zoa:=StrToFloat(Edit1.Text);
      zhopa:=StrToFloat(Edit1.Text);
    DocLoaded:=false;
                WebBrowser1.Navigate(site+x);
while DocLoaded = False do Forms.Application.ProcessMessages;
 
 end;
 
end.

Добавлено через 34 секунды
в голову ничего не лезет) хотя бы названия функций подскажите

Добавлено через 13 минут
добавил

Delphi

1	Form1.Edit1.Text:=IntToStr(StrToInt(Form1.Edit1.Text)+1);

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

Добавлено через 6 минут

Delphi

begin
  site:='сылка';
   zopa:=(Edit1.Text);
      zhopa:=(Edit2.Text);
       x:=StrToFloat(Edit1.Text);
      y:=StrToFloat(Edit2.Text);
              if    x<y then begin
    DocLoaded:=false;
                WebBrowser1.Navigate(site+zopa);
while DocLoaded = False do Forms.Application.ProcessMessages;
   Form1.Edit1.Text:=IntToStr(StrToInt(Form1.Edit1.Text)+1);
 
 end;
  end;
end.

сделал так. осталоь зацилкить

Добавлено через 6 минут
хм.. сделал так

но обновляет с бешеной скоростью и нифига вроде не происходит

Delphi

begin
  site:='http://wekings.ru/game/clan/details/';
   zopa:=(Edit1.Text);
      zhopa:=(Edit2.Text);
       x:=StrToFloat(Edit1.Text);
      y:=StrToFloat(Edit2.Text);
              while    x<y do
              begin
                  DocLoaded:=false;
                WebBrowser1.Navigate(site+zopa);
while DocLoaded = False do Forms.Application.ProcessMessages;
   Form1.Edit1.Text:=IntToStr(StrToInt(Form1.Edit1.Text)+1);
 
 
  end;
  end;
end.

	10.09.2013, 22:48