<div dir="ltr"><br><div class="gmail_extra"><br><div class="gmail_quote">On Sun, Jan 8, 2017 at 12:22 PM, Sven Barth <span dir="ltr"><<a href="mailto:pascaldragon@googlemail.com" target="_blank">pascaldragon@googlemail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><span class="gmail-"><p>The closest equivalence to bitwise and in Pascal is bitwise and. <br></p></span><p>
The operators "and", "or", "xor" and "not" are logical or bitwise depending on their arguments.</p></blockquote><div><br></div><div>With that said...</div><div><br></div><div><br></div><div><br><div class="gmail_quote">On Sun, Jan 8, 2017 at 11:46 AM, José Mejuto <span dir="ltr"><<a href="mailto:joshyfun@gmail.com" target="_blank">joshyfun@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><br>Both work the same way but pascal does not have the assignment and testing mess that can be written in C like:<br><br>C / C++:<br><br>a = b && c;<br><br>Pascal:<br><br>a := (b<>0) and (c<>0);<span class="gmail-HOEnZb"><font color="#888888"><br></font></span></blockquote></div></div><div> </div><div>There's another approach to resolved that.</div><div><br></div><div>The following code works as expected</div><div><br></div><div><div>{$mode objfpc}</div><div><br></div><div>var</div><div>  b,c : integer;</div><div>  a   : Boolean;</div><div>  ai  : integer;</div><div>begin</div><div>  b:=2;</div><div>  c:=3;</div><div>  ai:=b and c;</div><div>  a:=boolean(b) and boolean(c);</div><div>  writeln(a);</div><div>  writeln(ai);</div><div>  writeln(byte(a));</div><div>end.</div></div><div><br></div><div>output:</div><div><div>TRUE</div><div>2</div><div>1</div></div><div><br></div><div>thanks,</div><div>Dmitry</div></div></div></div>