Уроци по Delphi. Да се научим да поставяме граници
Уроци по делфи. Временно ограничаване на работата на програмата.
В този урок ще ви покажа 2 начина да поставите времево ограничение на програмата.
Метод #1 По-интересно.
Първото нещо, което трябва да направим, е да пуснем 2 компонента на етикета от раздела Standard и един компонент на таймера от раздела system върху формуляра. Декларирайте променливи: за да приложим този метод, имаме нужда от две глобални променливи:
1) Opentime 2) Closetime те ще имат тип tDateTime
Като цяло, ако някой не разбира, след ключовата думаvar пишем следния ред: closetime, opentime: tdatetime; Веднага ще кажа, че ако искате информационната сигурност на една компания или вашата програма да бъде в най-добрия си вид, този метод ще трябва да бъде сложен понякога, тук е показан само прост пример.
Давайте, сега създайте манипулатор на събитие във формуляраOnCreate - за да направите това, просто щракнете върху формуляра 2 пъти междуbeginend напишете следния код:
отворено време:=време; //Функцията време ни дава текущото време closetime:= opentime+strtotime('00:00:30'); //Тук добавяме желания час към началния час. //В този случай във формат hh:mm:ss label1.Caption:=timetostr(opentime);
Разбрахме формата, отидете на таймера и създайте манипулатор на събитие върху него OnTime Междуbeginend; пишем:
ако време > closetimethen //Ако текущият час > //край на програмата след товаbegin showmessage('Програмата е изтекла! '); //Покажи //съобщение close; //затваряне на програматаend; Label2.Caption:=timetostr(opentime-closetime); // в противен случай показва времето //до края на програмата
Тук по принципвсичко, остава само да зададете true в свойството Enabled на таймера.
Метод #2 По-прост.
Хвърляме компонента на таймера във формуляра от системния раздел. Задайте свойството Enabled на true. Задайте свойството Interval на 30000 (програмата ще се затвори след 30 секунди). Създайте манипулатор на събитие Ontime и напишете следния код в него
showmessage('Времето на програмата е изтекло!'); близо;