Массивы

[Arsenx777]

скажите плиз! мне надо при нажатии на кнопку чтобы в edit выводились цыфры от 1 до 50
например: в edit вводится 1, через 2 секунды меняется на 2, еще через 3 секунды меняется на 3 и т.д до 50

[Arsenx777]

извените опечатка

например: в edit вводится 1, через 2 секунды меняется на 2, еще через 3 секунды меняется на 2 и т.д до 50

[Arsenx777]

вот правильный вопрос
скажите плиз! мне надо при нажатии на кнопку чтобы в edit выводились цыфры от 1 до 50

например: в edit вводится 1, через 2 секунды меняется на 2, еще через 2 секунды меняется на 3 и т.д до 50


__________________

[Pein95]

используй таймер

и ещо незачем кидать 3 поста сразу свои сообщения можно редактировать, есть такая кнопка "правка"

[Arsenx777]

а как напиши плз.

[New man]

[CODE]TForm1.TimerOnTimer()[;
begin
Edit.text:=inttostr(strtoint(edit.t ext)+1);
end;
TForm1.ButtonClick(sender:tobject);
begin
Edit.text:='1';
timer.interval:=2000;
Timer.Enabled:=true;

end;CODE]

[Pein95]

procedure TForm2.FormCreate(Sender: TObject);
begin
  for I := 1 to 50 do
    a[i]:=i;
    i:=1;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
edit1.Text:=inttostr(a[i]);
i:=i+1;
end;

end.

[Arsenx777]

с массивами как

?

[Arsenx777]

спасибо! !!!!

[Arsenx777]

что такое a[i]:=i;
какой тип переменной а