[Delphi]/[Pascal] Задай вопрос, получи ответ

FORUMS

MEMBERS

RECENT POSTS

НОВЫЕ ТОРГОВАЯ НОВОСТИ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
[Delphi]/[Pascal] Задай вопрос, получи ответ

#11

03.05.2010, 01:49

h(f)ucker

Участник форума

Регистрация: 11.07.2009

Сообщений: 175

С нами: 8860159

Репутация: 185

Код:

Глобально: var sec : Integer;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 sec := sec+1;
 Label1.caption:=IntToStr(sec);
end;

Перед этим нужно задать значение sec = 0;
В FormCreate например.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ!	Alexsize	Беспроводные технологии/Wi-Fi/Wardriving	2571	20.06.2026 14:48
[jQuery] - Задай вопрос, получи ответ	Isis	PHP	62	25.12.2009 03:25

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход

Home