VPF::Таймер - Форум программистов

Михалыч

Дата 6.7.2008, 12:59 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет

Поставил в таймер вот такой код,а в Label отображается цыфра 59,то есть один раз сработал и встал

Код


procedure TForm1.Timer7Timer(Sender: TObject);
var
xx:Integer;
begin
xx:=60;
xx:=xx-1;

Form1.Label25.Caption:=IntToStr(xx);


end;

end.

--------------------

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

VICTAR

Дата 6.7.2008, 13:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 10
Всего: 80

Никто никуда не встал. Каждый раз ты переменной xx присваиваешь значение 60. Какого эффекта ты ждал?

Добавлено через 1 минуту и 10 секунд
Если тебе нужен отсчет, то сделай переменную хх глобальной и вынеси ее инициализацию за пределы Timer7Timer, например в OnCreate

Михалыч

Дата 6.7.2008, 13:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет

Спасибо

--------------------

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

THandle

Дата 7.7.2008, 05:22 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Тут не обязательно объявлять глобальную переменную. Можно и так:

Код



procedure TForm1.Timer1Timer(Sender: TObject);
{$J+}
const
  xx : integer = 60;
{$J-}
begin
  Label1.Caption := IntToStr(xx);
  Dec(xx);
end;

VICTAR

Дата 7.7.2008, 10:08 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 10
Всего: 80

Цитата(THandle @ 7.7.2008, 05:22

)

Можно и так:

Можно, но не нужно.
Не надо лезть в дебри, если не знаешь основ smile

THandle

Дата 8.7.2008, 05:01 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Цитата(VICTAR @ 7.7.2008, 11:08

)

Можно, но не нужно.
Не надо лезть в дебри, если не знаешь основ

Тут я согласен. Просто показал как еще можно. smile

Кстати, а зачем так вот:

Цитата(VICTAR @ 6.7.2008, 14:12

)

Если тебе нужен отсчет, то сделай переменную хх глобальной и вынеси ее инициализацию за пределы Timer7Timer, например в OnCreate

?

Мне всегда казалось что глобальные переменные можно инициализировать "не отходя от кассы", то есть при объявлении.

так вот :

Код



var
  xx : integer = 60;

VICTAR

Дата 8.7.2008, 12:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 10
Всего: 80

Цитата(THandle @ 8.7.2008, 05:01

)

можно инициализировать

никто не спорит.
ключевое слово в моем топике

Цитата(VICTAR @ 6.7.2008, 13:12

)

например

THandle, smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »