|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Таймер + TLabel, оформление, повтор
Здраствуйте, я новичек по этому прошу не бить
Код таймера: Код:
Label1.Caption:='text'; Label1.Caption:='text.'; Label1.Caption:='text..'; Label1.Caption:='text...'; Label1.Caption:='text....'; Label1.Caption:='text.....'; Как сделать чтобы после последней строчки код повторялся, начиная с первой строчки ??? Буду благодарен |
#2
|
||||
|
||||
Если без изысков обойтись, то можно вот так
Код:
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; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
|||
|
|||
Цитата:
Не работает почему то (( Точки добавляются до бесконечности, как можно исправить ?? |
#4
|
||||
|
||||
Цитата:
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#5
|
|||
|
|||
>Не работает почему то ((
Наверное у Вас переменная i описана внутри Timer1Timer |