[MeKree]

Здраствуйте, я новичек по этому прошу не бить

Код таймера:

Код:

1 2 3 4 5 6

Label1.Caption:='text'; Label1.Caption:='text.'; Label1.Caption:='text..'; Label1.Caption:='text...'; Label1.Caption:='text....'; Label1.Caption:='text.....';

Как сделать чтобы после последней строчки код повторялся, начиная с первой строчки ???

Буду благодарен

[Alegun]

Если без изысков обойтись, то можно вот так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var i: integer = 0; procedure TForm1.Timer1Timer(Sender: TObject); begin  case i of   0: Label1.Caption:='text';   1: Label1.Caption:='text.';   2: Label1.Caption:='text..';   3: Label1.Caption:='text...';   4: Label1.Caption:='text....';   5: Label1.Caption:='text.....';  end;  Inc(i);  if i > 5 then i:= 0; end;

хотя это и не правильно. Можно ещё так

Код:

1 2 3 4 5 6 7 8 9 10 11 12

var  i: integer = 0; procedure TForm1.Timer1Timer(Sender: TObject); begin  Label1.Caption:= Label1.Caption + '.';  if i > 5 then   begin    i:= 0;    Label1.Caption:='text';   end;  Inc(i); end;

[MeKree]

Сообщение от Alegun

Код:

Не работает почему то ((

Точки добавляются до бесконечности, как можно исправить ??

[Alegun]

Сообщение от MeKree

Не работает почему то ((...

Это рабочий код, прям с редактора и у меня всё ОК.

[icWasya]

>Не работает почему то ((
Наверное у Вас переменная i описана внутри Timer1Timer