Advertisement
TLama

Untitled

Nov 11th, 2014
401
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.36 KB | None | 0 0
  1. var
  2.   isenable: Byte;                  // unsigned char -> Byte
  3. begin
  4.   isenable := 0;                   // isenable = 0
  5.   if m_Isbuzzer then               // if (m_Isbuzzer)
  6.     isenable := isenable or $01;   // isenable = isenable | 0x01
  7.   if m_Isled then                  // if (m_Isled)
  8.     isenable := isenable or $02;   // isenable = isenable | 0x02
  9. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement