📄 delphi中十六进制转二进制的问题_百度知道.htm

📁 GPS对讲机接收
💻 HTM
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0053)http://zhidao.baidu.com/question/19884957.html?fr=qrl -->
<!--STATUS OK--><HTML><HEAD><TITLE>delphi中 十六进制转二进制的问题_百度知道</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
title="“delphi中 十六进制转二进制的问题”的最新回答（RSS 2.0）" 
href="http://zhidao.baidu.com/q?ct=20&amp;qid=19884957&amp;pn=65535&amp;rn=25&amp;tn=rssqb" 
type=application/rss+xml rel=alternate><LINK 
href="delphi中 十六进制转二进制的问题_百度知道.files/ikqb.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2900.3395" name=GENERATOR></HEAD>
<BODY>
<SCRIPT src="delphi中 十六进制转二进制的问题_百度知道.files/userlogin.js" 
type=text/javascript></SCRIPT>

<DIV id=usrbar><NOBR>
<SCRIPT language=JavaScript>document.write('<a href="http://www.baidu.com/">百度首页</a>&nbsp;|&nbsp;<a href="#" onclick="userLogin(TopLoginSuccess, TopLoginFail,\'login\');" id="log_in">登录</a>');</SCRIPT>
</NOBR></DIV>
<TABLE class=hd cellSpacing=0 cellPadding=0 width=750 border=0>
  <TBODY>
  <TR>
    <TD vAlign=top width=146><A href="http://zhidao.baidu.com/"><IMG height=46 
      alt=百度知道 src="delphi中 十六进制转二进制的问题_百度知道.files/logo-zhidao.gif" width=137 
      vspace=3 border=0></A></TD>
    <TD>
      <DIV id=tab><A class=headTit 
      href="http://news.baidu.com/ns?cl=2&amp;rn=20&amp;tn=news&amp;word=delphi+16%BD%F8%D6%C6%D7%AA2%BD%F8%D6%C6&amp;t=1">新闻</A>&nbsp;&nbsp;&nbsp;<A 
      class=headTit 
      href="http://www.baidu.com/s?cl=3&amp;wd=delphi+16%BD%F8%D6%C6%D7%AA2%BD%F8%D6%C6">网页</A>&nbsp;&nbsp;&nbsp;<A 
      class=headTit 
      href="http://tieba.baidu.com/f?kw=delphi+16%BD%F8%D6%C6%D7%AA2%BD%F8%D6%C6&amp;t=4">贴吧</A>&nbsp;&nbsp;&nbsp;<FONT 
      class=headTitB>知道</FONT>&nbsp;&nbsp;&nbsp;<A class=headTit 
      href="http://mp3.baidu.com/m?tn=baidump3&amp;ct=134217728&amp;lm=-1&amp;word=delphi+16%BD%F8%D6%C6%D7%AA2%BD%F8%D6%C6&amp;t=2">MP3</A>&nbsp;&nbsp;&nbsp;<A 
      class=headTit 
      href="http://image.baidu.com/i?tn=baiduimage&amp;ct=201326592&amp;lm=-1&amp;cl=2&amp;word=delphi+16%BD%F8%D6%C6%D7%AA2%BD%F8%D6%C6&amp;t=3">图片</A>&nbsp;&nbsp;&nbsp;<A 
      class=headTit 
      href="http://video.baidu.com/v?ct=301989888&amp;rn=20&amp;pn=0&amp;db=0&amp;s=22&amp;word=delphi+16%BD%F8%D6%C6%D7%AA2%BD%F8%D6%C6">视频</A>&nbsp;&nbsp;&nbsp;<A 
      class=headTit 
      href="http://baike.baidu.com/w?ct=17&amp;lm=0&amp;tn=baiduWikiSearch&amp;pn=0&amp;rn=10&amp;word=delphi+16%BD%F8%D6%C6%D7%AA2%BD%F8%D6%C6">百科</A></DIV>
      <FORM name=ftop action=/q method=get>
      <TABLE cellSpacing=0 cellPadding=0 border=0>
        <TBODY>
        <TR>
          <TD noWrap><INPUT class=hdi tabIndex=1 maxLength=256 size=42 
            value="delphi 16进制转2进制" name=word>&nbsp;&nbsp;&nbsp;</TD>
          <TD><A 
        href="http://www.baidu.com/search/zhidao_help.html">帮助</A></TD></TR></TBODY></TABLE>
      <DIV style="MARGIN-TOP: 4px"><INPUT class=bnsrh tabIndex=2 type=submit value=搜索答案><INPUT 
      type=hidden value=17 name=ct><INPUT type=hidden value=0 name=pn><INPUT 
      type=hidden value=ikaslist name=tn><INPUT type=hidden value=10 name=rn> <INPUT class=bnsrh style="MARGIN-LEFT: 8px" onclick="checkLoginF(NewAskTop,'ask');" tabIndex=3 type=button value=我要提问> 
      </DIV></FORM>
      <FORM name=fask action=/q method=get><INPUT type=hidden value=17 
      name=ct><INPUT type=hidden value=0 name=pn><INPUT type=hidden value=ikask 
      name=tn><INPUT type=hidden value=10 name=rn><INPUT type=hidden name=word> 
      <INPUT type=hidden value=1 name=cm><INPUT type=hidden value=394496 
      name=lm><INPUT type=hidden value=1 name=qf> </FORM></TD></TR></TBODY></TABLE>
<SCRIPT>document.domain="baidu.com";var url = escape(location.href);if(!G){function G(A){if(typeof (A)=="string"){return document.getElementById(A)}return A}}function ctlSubmit(A){if(A.ctrlKey&&A.keyCode==13){replyFormInit.onSubmit()}}function lockButton(A){A=G(A);A.disabled=true;setTimeout(function(){A.disabled=false},3000)}function cReply(A){if(A=="yes"){G("replyTB").style.display="";document.myform.co.focus()}if(A=="no"){G("replyTB").style.display="none"}}function fixReply(A){setTimeout("cReply('"+A+"')",300)}function showcpro(A){G("cproshow").innerHTML=A}function ga(B,A){if(document.getElementById){a=B.id.substring(1);p="";r="";g=A.target;if(g){t=g.id;f=g.parentNode;if(f){p=f.id;h=f.parentNode;if(h){r=h.id}}}else{h=A.srcElement;f=h.parentNode;if(f){p=f.id}t=h.id}if(t==a||p==a||r==a){return true}window.open(G(a).href,"_blank")}}function ss(A){window.status=A;return true}function cs(){window.status=""}var query=(function(){var D=document.forms.ftop;var B=D.word.value;if(B.length>0){D.word.focus();if(document.all){var C=D.word.createTextRange();C.select();C.collapse(false);C.select()}D.onsubmit=function(){function E(F){var H=document.createElement("input");H.type="hidden";H.name="qf";H.value="google_n"+(F?"1":"0");return H}document.forms.ftop.appendChild(E(query.isChanged()));return true}}function A(){if(B==""){return false}return B!=document.forms.ftop.word.value}return{q:B,isChanged:A}})();function statFunc(B){var A=new Image();A.src="/stat?tn=ikqb&"+B+"&t="+(new Date()).getTime()};</SCRIPT>

<DIV id=main><!--[if IE]>
<SCRIPT language=JavaScript>
var objmain = document.getElementById("main");
function updatesize(){ 
    var bodyw = window.document.body.offsetWidth; 
    var w=(bodyw>=1000?"976px":(bodyw<=780?"760px":"100%"));
    objmain.style.width=w; 
}
updatesize();
 window.onresize = updatesize;
</SCRIPT>
<![endif]-->
<DIV 
style="BACKGROUND: none transparent scroll repeat 0% 0%; MARGIN: 10px 0px 0px" 
align=left>
<SCRIPT>if(!g_f_js){var g_f_js=true;document.write('<script src=\'http://eiv.baidu.com/other/ff.js\'></'+'script>');}</SCRIPT>

<SCRIPT>if (typeof(cf)=="function") {cf("http://eiv.baidu.com/maimg/20080901/1098153927.swf","760","90","http://ma.baidu.com/ma/rcv/click.php?t=uv-b5HDhTv-b5Hcknj6sFMIGujYkFhVGujYkFhqsULnqniuhUWdGpv4EIzudThsqpZwYTaR1fiRzwBRzwMNYpykGIZb8mh7GuZR8mvqVFHFAIZF9uBRzwhP_pyPoQMKCTaR1wh-bFHPDnHfvPBRzPMNzUaR1wA9YIZ0-nWR1fiRzPHFAFHcdnbuGUi4Bmy-bIi4WUvY-nWRzwMKzUvdEFHcdnbuMTvN9ThPCQh9YUyshTv3qP1DhT1YsnHRLn1m3rAfLn1NhuhRLFMFsULnqniubIjd8iAPlUb9RTdKJUyVfn0","0");}</SCRIPT>
</DIV>
<DIV id=path><A href="http://zhidao.baidu.com/">百度知道</A> &gt; <CC><A 
href="http://zhidao.baidu.com/browse/74?lm=9">电脑/网络</A> &gt; <A 
href="http://zhidao.baidu.com/browse/93?lm=9">其他编程语言</A></CC></DIV>
<DIV id=content>
<DIV id=content_inner>
<DIV class="mb12 bai">
<DIV class=rg_1></DIV>
<DIV class=rg_2></DIV>
<DIV class=rg_3></DIV>
<DIV class=rg>
<DIV class=t1 id=question_status><SPAN 
style="PADDING-RIGHT: 10px; MARGIN-TOP: -1px; FONT-WEIGHT: normal; FONT-SIZE: 12px; FLOAT: right"><SPAN 
class=ico><SPAN class=irelate>&nbsp;</SPAN></SPAN><A class=lbk 
href="http://zhidao.baidu.com/question/19884957.html?fr=qrl#irelatelink">相关问题</A></SPAN><SPAN 
style="FONT-WEIGHT: normal; FONT-SIZE: 12px; FLOAT: right; WIDTH: 100px">
<DIV class=icosc></DIV><A class=lbk 
onclick="window.open('http://cang.baidu.com/do/add?it='+encodeURIComponent(document.title)+'&amp;iu='+encodeURIComponent(location.href)+'&amp;tn=%E7%9F%A5%E9%81%93%E9%97%AE%E9%A2%98%2C&amp;fr=ik#nw=1','_s','scrollbars=no,width=600,height=450,right=75,top=20,status=no,resizable=yes'); return false;" 
href="http://cang.baidu.com/do/add" target=_blank>添加到搜藏</A></SPAN>
<DIV class=ico>
<DIV class=iok></DIV></DIV>已解决 </DIV>
<DIV class=bc0>
<DIV class=p90>
<DIV class="f14 B wr" id=question_title><CQ>delphi中 十六进制转二进制的问题</CQ></DIV>
<DIV class=wr id=question_info><SPAN class=red><IMG height=16 
src="delphi中 十六进制转二进制的问题_百度知道.files/icn_point.gif" width=16 align=absMiddle> 
悬赏分：10</SPAN> - <SPAN class=gray>解决时间：2007-2-12 14:05</SPAN></DIV>
<DIV class="f14 wr" id=question_content><CD>最近在串口编程中遇到难题，特请教各位 
<BR><BR>1、在delphi中16进制如何转换成2进制 <BR>2、又如何截取2进制中的第某个字符是0还是1？</CD></DIV>
<DIV class="f14 wr" id=question_sup></DIV></DIV>
<DIV class="gray wr" id=question_author align=right>提问者： <A 
href="http://passport.baidu.com/?business&amp;aid=6&amp;un=yoxa#2" 
target=_blank>yoxa</A> - <A 
href="http://www.baidu.com/search/zhidao_help.html#n5" target=_blank>助理 二级</A> 
</DIV></DIV></DIV>
<DIV class=rg_4></DIV>
<DIV class=rg_5></DIV>
<DIV class=rg_1></DIV></DIV>
<DIV class="mb12 bai">
<DIV class=rr_1></DIV>
<DIV class=rr_2></DIV>
<DIV class=rr_3></DIV>
<DIV class=rr>
<DIV class=t1>
<DIV class=ico>
<DIV class=ibest></DIV></DIV>最佳答案</DIV>
<DIV class=bc0 
style="PADDING-RIGHT: 0pt; PADDING-LEFT: 0pt; PADDING-BOTTOM: 5px; PADDING-TOP: 5px">
<DIV class=wr>
<DIV class="f14 p90 pl10" id=best_answer_content><CA>//将单个字符的串转换成字符 
参数说明：Str:被转换的串 <BR>Function Str_StrToChar(Str: String): Char; <BR>Begin 
<BR>Result := #0; <BR>If Length(Str) = 0 Then exit; <BR>If Length(Str) &gt; 1 
Then exit; <BR>Result := Str[1]; <BR>End; <BR><BR>//将一个十进制整型转换成二进制值 
参数说明：Int:被转换的整型值 <BR>//Size:转换后的宽度：4位 8位 或更大 <BR>Function Str_IntToBin(Int: 
LongInt; Size: Integer): String; <BR>Var <BR>i: Integer; <BR>Begin <BR>If Size 
&lt; 1 Then Exit; <BR>For i := Size Downto 1 Do <BR>Begin <BR>If Int And (1 Shl 
(Size - i)) &lt;&gt; 0 Then <BR>Result := '1' + Result <BR>Else <BR>Result := 
'0' + Result; <BR>End; <BR>End; <BR><BR>//将一个十六进制的值转换成整型 参数说明：Hex:被转换的十六进制值 
<BR>Function Str_HexToInt(Hex: String): integer; <BR>Var <BR>HexDigital: Set Of 
char; <BR>i: integer; <BR>Digital: String; <BR>Begin <BR>Result := 0; 
<BR>HexDigital := ['1', '2', '3', '4', '5', '6', '7', '8', '9', '0', 'A', 'B', 
<BR>'C','D', 'E', 'F', 'a', 'b', 'c', 'd', 'e', 'f']; <BR>If Length(Hex) = 0 
Then Exit; <BR>For i := 1 To Length(Hex) Do <BR>Begin <BR>Digital := Copy(Hex, 
i, 1); <BR>If (i = 1) And (digital = '$') Then Continue; <BR>If Not 
(Str_StrToChar(Digital) In HexDigital) Then Exit; <BR>End; <BR>Digital := 
Copy(Hex, 1, 1); <BR>If Digital &lt;&gt; '$' Then Hex := '$' + Hex; <BR>Result 
:= StrToInt(Hex); <BR>End; <BR><BR>//hextobin函数可以实现,但是这种做法更有优点 (用函数Str_HexToInt) 
<BR>//edit1中输入16进制，在edit2中显示转换后的2进制 <BR>//转换过程：先把16进制转换为10进制，再把10进制转换2进制 
<BR>procedure TForm1.Button1Click(Sender: TObject); <BR>begin 
<BR>edit2.Text:=Str_IntToBin(Str_HexToInt(edit1.Text),2); <BR>end; 
<BR><BR><BR>要截取某个字符是0或是1,可以从而进制字符串中取出该位数字,和0或1比较. 
<BR>if(strtoint(copy(binstr,3,1)) = 0 ) then //如果二进制字符串3位为0 ,则 <BR>begin 
<BR>end;</CA></DIV>
<DIV class=gray id=best_answer_info style="MARGIN: 5px" align=right>回答者： <A 
href="http://passport.baidu.com/?business&amp;aid=6&amp;un=blackscreen#2" 
target=_blank>blackscreen</A> -<A 
href="http://www.baidu.com/search/zhidao_help.html#n5" target=_blank> 初入江湖 
三级</A><SPAN id=im-user-eaa4626c61636b73637265656ef401 
title=blackscreen>&nbsp;</SPAN> <SPAN id=best_answer_time>2-8 16:46</SPAN></DIV>
<DIV style="MARGIN: 5px; TEXT-ALIGN: right"><A 
href="http://zhidao.baidu.com/q?ct=20&amp;qid=19884957&amp;cm=6&amp;tn=ikqbremark&amp;mrn=25" 
target=_blank>我来评论&gt;&gt;</A></DIV>
<DIV class=t2>提问者对于答案的评价：</DIV>
<DIV class="p90 pl10 f14" id=best_answer_comment>感谢热情回复 <BR>答案请看：<A 
href="http://hi.baidu.com/yoxa/blog/item/a6dd952bcd2ef6fae6cd408a.html" 
target=_blank>http://hi.baidu.com/yoxa/blog/item/a6dd952bcd2ef6fae6cd408a.html</A></DIV>
<DIV class=t2>评价已经被关闭&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="f12 gray" 
style="FONT-WEIGHT: normal">目前有 0 个人评价</SPAN></DIV>
<DIV class=pl10>
<FORM name=fpj action=/q method=post>
<TABLE cellSpacing=0 cellPadding=0 border=0>
  <TBODY>
  <TR vAlign=top><INPUT type=hidden value=22 name=ct> <INPUT type=hidden 
    name=mpn> <INPUT type=hidden value=100003 name=cm> <INPUT type=hidden 
    value=19884957 name=qid> <INPUT type=hidden value=iksubmit name=tn> <INPUT 
    type=hidden value=/question/19884957.html name=lu>
    <SCRIPT>function g(w){ document.fpj.mpn.value=w;};document.fpj.lu.value=escape(location.href)</SCRIPT>
     
    <TD class=f14 width=120>好<BR><SPAN class=red>50%</SPAN> （0）</TD>
    <TD class=f14 width=120>不好<BR><SPAN class=grn>50% 
</SPAN>（0）</TD></TR></TBODY></TABLE></FORM></DIV></DIV></DIV></DIV>
<DIV class=rr_4></DIV>
<DIV class=rr_5></DIV>
<DIV class=rr_1></DIV></DIV><A name=irelatelink></A>
<DIV class="mb12 bai">
<DIV class=rg_1></DIV>
12 下一页
💿 文件大小 686 K
👤 上传用户 xuhuizi
📂 所属分类 GPS编程
🏷️ 相关标签

#GPS #对讲机 #接收
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -
📄 delphi中 十六进制转二进制的问题_百度知道.htm

⌨️ 快捷键说明

📄 delphi中十六进制转二进制的问题_百度知道.htm
