HiAsm

Разработчик

Ответов: 4698

Рейтинг: 426

#1: 2010-08-10 20:19:16 ЛС | профиль | цитата

#pas
if AutoStop = 0 then OnStop;

Прекрасно. Но нельзя сделать одну лишнюю проверку для удаления такого двойного "греха"?

#pas
procedure THIMMTimer.SetAutoStop;
begin                           
   if value = 0 then value := -1;
   AutoStop:=Value;
   AutoStopDEF:=Value;
end;

------------ Дoбавленo в 20.19:
Она же кода много не прибавит и не будет уменьшать производительности таймера

карма: 10

Мой сайт, Мои рассказы

Форумы Прочее (MM)Timer ← Ctrl12Ctrl →