<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.6000.16850" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Pessoall, Boa tarde!</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Como sempre, estou precisando de um
HELP!!!</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Estou passando um sistema de Delphi para Perl
</FONT></DIV>
<DIV><FONT face=Arial size=2>e </FONT><FONT face=Arial size=2>não tenho
consiguido achar indicação </FONT></DIV>
<DIV><FONT face=Arial size=2>para desenvolver este trecho do
código.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>É uma comparação feita como entre Bytes como
Boolean.</FONT></DIV>
<DIV><FONT face=Arial
size=2>________________________________________________________________</FONT></DIV>
<DIV><FONT face=Arial
size=2>________________________________________________________________</FONT></DIV>
<DIV><FONT face=Arial size=2>Segue o trecho do código:</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Procedure Ver_Conteudo;</FONT></DIV>
<DIV><FONT face=Arial size=2> const BITS: array[0..7] of Byte =
(1,2,4,8,16,32,64,128);</FONT></DIV>
<DIV><FONT face=Arial size=2> Res: Boolean;</FONT></DIV>
<DIV><FONT face=Arial size=2>Begin</FONT></DIV>
<DIV><FONT face=Arial size=2> </FONT></DIV>
<DIV><FONT face=Arial size=2> Res := Boolean ( BITS[1] and 6
); // Este é o trecho que me interessa, este
resultado dá true.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2> if (Res) Then ShowMessage('True') else
ShowMessage('False');</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>End;</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>
<DIV><FONT face=Arial
size=2>________________________________________________________________</FONT></DIV>
<DIV><FONT face=Arial
size=2>________________________________________________________________</FONT></DIV>
<DIV> </DIV>
<DIV>Qualquer ajuda/ luz, ajuda muito...</DIV>
<DIV> </DIV>
<DIV>desde já agradeço a todos.</DIV>
<DIV> </DIV>
<DIV>Abs</DIV>
<DIV> </DIV>
<DIV>Claudio H.Binaghi<BR><A
href="mailto:claudio@dpreferencial.com.br">claudio@dpreferencial.com.br</A><BR>5511
3288.4840<BR></FONT></DIV></DIV></BODY></HTML>