![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 27.12.2017
Сообщений: 17
|
![]()
Есть таймер ,но при запуске он начинает заново отсчитывать как сделать чтобы ты к примеру выключил программу,а потом включил и он не сбивался а продолжал отсчитывать время?
unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls; type { TForm1 } TForm1 = class(TForm) Label1: TLabel; Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure Label1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { private declarations } public { public declarations } secs : integer; // <--- end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.FormCreate(Sender: TObject); begin secs:= 86400; Form1.BorderStyle := bsSingle; Form1.BorderStyle:=bsDialog; end; procedure TForm1.Label1Click(Sender: TObject); begin end; procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption := FormatDateTime('hh:nn:ss', secs / SecsPerDay); Dec(secs); end; end. |
![]() |
![]() |
![]() |
#2 | ||
Старожил
Регистрация: 20.04.2008
Сообщений: 5,527
|
![]()
Использовать не счетчик
Цитата:
Код:
Цитата:
программа — запись алгоритма на языке понятном транслятору
|
||
![]() |
![]() |
![]() |
#3 |
Новичок
Джуниор
Регистрация: 27.12.2017
Сообщений: 17
|
![]()
Выдаёт ошибку
unit1.pas(60,24) Error: Identifier not found "x" unit1.pas(60,9) Error: Identifier not found "SecondsBetween" |
![]() |
![]() |
![]() |
#4 | ||
Старожил
Регистрация: 20.04.2008
Сообщений: 5,527
|
![]() Цитата:
Код:
Цитата:
программа — запись алгоритма на языке понятном транслятору
|
||
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 16.12.2009
Сообщений: 902
|
![]()
Вот код для работы таймера с сохронением
Код:
Последний раз редактировалось Aliens_wolfs; 03.01.2018 в 00:08. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Принтер Kyocera FS-2000D печатает без остановки | MooNDeaR | Компьютерное железо | 10 | 17.10.2014 11:01 |
Отсчёт времени | Heimdaller | JavaScript, Ajax | 1 | 12.08.2013 23:18 |
Обратный отсчёт времени | Che Guevara | JavaScript, Ajax | 2 | 05.05.2011 14:03 |
Отсчёт времени(сколько осталось до...) | acmilan | JavaScript, Ajax | 2 | 23.07.2009 08:10 |
Ввод с клавиатуры без остановки программы | ActioNs | Общие вопросы C/C++ | 1 | 25.12.2008 04:40 |