[MeKree]

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

Код таймера:

Код:

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

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

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

[Alegun]

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

Код:

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;

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

Код:

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

Код:

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;

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

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

[Alegun]

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

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

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

[icWasya]

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