Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.07.2013, 18:16   #1
Akin0t
Пользователь
 
Регистрация: 27.06.2013
Сообщений: 10
По умолчанию Работа с таймером (Lazarus)

Здравствуйте.
Помогите пожалуйста, нужно что бы в метку выводилось число срабатывания таймера (всего срабатываний 10), что бы после каждого срабатывания числом менялось, а оно сразу выводит в метку число 10.

Код HTML:
procedure TForm1.Button1Click(Sender: TObject);
var n,i:integer;
begin
  n:=StrToint(Edit1.Text);
  Timer1.Interval:=(n*1000);
  for i:=0 to 9 do
  begin
    Timer1.Enabled:=True;
    Lbl.Caption:=IntToStr(i+1);
  end;
  Timer1.Enabled:=false;
end;
Akin0t вне форума Ответить с цитированием
Старый 02.07.2013, 18:40   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Код:
var
  i: integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Interval := strtoint(Edit1.Text) * 1000;
  i := 0;
  Timer1.Enabled := true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(i);
  Label1.caption := inttostr(i);
  if i = 10 then
    Timer1.Enabled := false;
end;
UPD
Пожалуйста
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )

Последний раз редактировалось BDA; 02.07.2013 в 18:57.
BDA вне форума Ответить с цитированием
Старый 02.07.2013, 18:48   #3
Akin0t
Пользователь
 
Регистрация: 27.06.2013
Сообщений: 10
По умолчанию

Спасибо огромное!
Всё работает!
Akin0t вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с таймером С# JK0 Помощь студентам 1 31.10.2011 16:25
работа с таймером Андрей.12 Помощь студентам 3 28.03.2010 22:36
Работа с таймером LordTor Общие вопросы Delphi 1 09.11.2009 14:08
Работа с таймером Alika Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 12.11.2007 19:27