Относно таймера

Компонентът на таймера се използва за отчитане на реалните интервали от време. Неговото свойство за интервал указва времето в милисекунди, което трябва да изтече от включения таймер, докато настъпи събитието ontimer. Таймерът е активиран, когато стойността е зададена на true в неговото активирано свойство. Веднъж активиран, таймерът винаги ще повишава ontimer събития, докато неговото активирано свойство не е вярно.

Трябва да се отбележи, че поради спецификата на изпълнението на стандартния хардуерен таймер на ibm-съвместим компютър, минималният действително постижим интервал от време не може да бъде по-малък от 55 ms (този интервал се нарича отметка), освен това всеки интервал от време отчитано с помощта на таймер винаги е кратно на 55 ms ... За да проверите това, изпълнете експеримент, който изчислява средното време между изстрелването на два таймера (timer.dpr):

Започнете нов проект с празна форма и поставете компонента ttimer върху него.
Задайте разрешеното свойство на таймера на false.
Напишете основен модул за формуляри като този (Листинг 4):
Листинг 4

windows, съобщения, sysutils, класове, графики, контроли, форми,

диалогови прозорци, stdctrls, бутони, extctrls;

tfmexample = клас (tform)

процедура bbrunclick (подател: tobject);

процедура timer1timer (подател: tobject);

процедура за активиране (подател: tobject);

begtime: tdatetime; // Начало на цикъла

брояч: цяло число; // Циклов брояч

var fmexample: tfmexample;

процедура tfmexample.bbrunclick (подател: tobject);

---