цикл для ttimer

[Evgenii]

Для ttimer нужно написать какой-нибудь цикл чтобы числа от 0 до 5 все время повторялись последовательно. У меня чтото ничего не выходит.. Подскажите, как можно реализовать такой цикл?

[goblinyara]

то есть, чтобы при первом срабатывании таймера было 1, при втором - 2, и так далее?

[KORN]

если я тебя правильно понял, то попробуй так

inc(a);
if a>=5 then
a:=0;

видимо плохо пробовал раз не выходит

[Evgenii]

то есть, чтобы при первом срабатывании таймера было 1, при втором - 2, и так далее?

Да, и по достижении максимального числа, все должно начинаться с нуля.
А в этом случае

inc(a);
if a>=5 then
a:=0;

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

[начинающий кодер]

if a<5 then inc(a) else a:=0;

в событии ontimer таймера пропиши а в событии oncreate формы

timer.enabled:=true

[Evgenii]

нет. все равно а:=0. цикл не повторяется.. хотя должен. не пойму в чем тут дело

[Evgenii]

наверное нужно чтобы был цикл в цикле, что-то вроде этого

repeat 
if a<5 then inc(a) else a:=0;
until...

[Jeni]

Были приведены уже готовые решения и не получается? Покажи код, который у тебя есть.

[начинающий кодер]

var
  Form5: TForm5;
  a:Integer;

implementation

{$R *.dfm}

procedure TForm5.FormCreate(Sender: TObject);
begin
   tmr1.Enabled:=True;
   a:=0;
end;

procedure TForm5.tmr1Timer(Sender: TObject);
begin
   if a<5 then Inc(a) else a:=0;
    lbl1.Caption:=IntToStr(a);
end;

end.

вот все работает!!!

[Evgenii]

Спасибо начинающий кодер! теперь работает!