Code: Select all
LastConnect : TDateTime;
Использование:
Code: Select all
// открыть контейнер
.....
stime := Now; // запомнили время последнего открытия сундука
....
// когда надо что-то снова взять
if lastconnect > stime then .... (переоткрыть сундук);