Изменение переменной в Timer

[Welotirit]

Здравствуйте, вопрос состоит в том что бы в бесконечном цикле значение spinedit1.Value изменялось от 20 до 100 и обратно. В фрагменте кода ниже-неудачная попытка, только однократное увеличение(ясно из-за чего). Помогите пожалуйста.

 if
      spinedit1.Value <= m  
   then
      spinedit1.Value:=spinedit1.Value+k
   else     
     begin
      m:=120-m;
      k:=-k;          
    end;

Заранее благодарен.

[asmodey1]

Что ж тут такого сложного ?

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if SpinEdit1.Value in [20,100] then
k:=-k;
SpinEdit1.Value:=SpinEdit1.Value+k;
end;

Только проследите, чтобы при запуске программы SpinEdit1.Value было в заданных вами пределах и не равно 20 или 100, иначе придется вводить доп. проверки:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if SpinEdit1.Value in [20,100] then
begin
if SpinEdit1.Value=20 then
k:=Abs(k) else
k:=-k;
end;
SpinEdit1.Value:=SpinEdit1.Value+k;
end;

[Welotirit]

Очень большое спасибо! И на самом деле просто. И если Вас не затруднит поясните как это устроено )

[asmodey1]

Право, даже представить не могу, что тут нужно объяснять ?

[Человек_Борща]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if SpinEdit1.Value in [20,100] then //Проверяем , находится ли значение value в дапозоне от 20 до 100
begin
if SpinEdit1.Value=20 then //Если оно рвно 20(КЭП?)
k:=Abs(k) else //Возвращаем модуль k
k:=-k; //иначе отнимаемю
end;
SpinEdit1.Value:=SpinEdit1.Value+k; //Ну тут понятно
end;

[ArtGrek]

еще так можно
начальное значение может быть любым

var
  UpInc: Boolean = True;
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if SpinEdit1.Value >= 100 then UpInc := False;
  if SpinEdit1.Value <= 20 then UpInc := True;
  if UpInc then SpinEdit1.Value := SpinEdit1.Value + 1
    esle SpinEdit1.Value := SpinEdit1.Value - 1
end;

[New man]

Сообщение от Человек_Борща

if spinEdit1.Value in [20,100] then //Проверяем , находится ли значение value в дапозоне от 20 до 100

Комент неправильный скорее если Value =20 или 100

Комент на тот случай када
[CODE]f spinEdit1.Value in [20..100] then //Проверяем , находится ли значение value в дапозоне от 20 до 100[CODE]