Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?

Официальный форум Simple-Scada.

Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - DJ

Страницы: [1]
1
Добрый день. Можете расписать как работает этот скрипт? Весь проект почти сделан вот на таких скриптах. Именно интересует вот эта часть - ...AsInt and 128) Shr 7) + 1
Код: (delphi)
begin
  // ЦВ НЕИСП АВАР  НСУХ  СУХ  НПИТ  ПИТ  МП
  // 1    0     0    0     0    0     0    0

  TM_Image(Sender).Frame := ((TM_Object(Sender).AsInt and 128) Shr 7) + 1
end.

Страницы: [1]