|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
31.12.2017, 14:47 | #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. |
31.12.2017, 15:41 | #2 | ||
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
Использовать не счетчик
Цитата:
Код:
Цитата:
программа — запись алгоритма на языке понятном транслятору
|
||
31.12.2017, 17:57 | #3 |
Новичок
Джуниор
Регистрация: 27.12.2017
Сообщений: 17
|
Выдаёт ошибку
unit1.pas(60,24) Error: Identifier not found "x" unit1.pas(60,9) Error: Identifier not found "SecondsBetween" |
01.01.2018, 16:16 | #4 | ||
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
Цитата:
Код:
Цитата:
программа — запись алгоритма на языке понятном транслятору
|
||
03.01.2018, 00:04 | #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 |