?? delphi中 十六進制轉二進制的問題_百度知道.htm
字號:
<!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&qid=19884957&pn=65535&rn=25&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> | <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&rn=20&tn=news&word=delphi+16%BD%F8%D6%C6%D7%AA2%BD%F8%D6%C6&t=1">新聞</A> <A
class=headTit
href="http://www.baidu.com/s?cl=3&wd=delphi+16%BD%F8%D6%C6%D7%AA2%BD%F8%D6%C6">網頁</A> <A
class=headTit
href="http://tieba.baidu.com/f?kw=delphi+16%BD%F8%D6%C6%D7%AA2%BD%F8%D6%C6&t=4">貼吧</A> <FONT
class=headTitB>知道</FONT> <A class=headTit
href="http://mp3.baidu.com/m?tn=baidump3&ct=134217728&lm=-1&word=delphi+16%BD%F8%D6%C6%D7%AA2%BD%F8%D6%C6&t=2">MP3</A> <A
class=headTit
href="http://image.baidu.com/i?tn=baiduimage&ct=201326592&lm=-1&cl=2&word=delphi+16%BD%F8%D6%C6%D7%AA2%BD%F8%D6%C6&t=3">圖片</A> <A
class=headTit
href="http://video.baidu.com/v?ct=301989888&rn=20&pn=0&db=0&s=22&word=delphi+16%BD%F8%D6%C6%D7%AA2%BD%F8%D6%C6">視頻</A> <A
class=headTit
href="http://baike.baidu.com/w?ct=17&lm=0&tn=baiduWikiSearch&pn=0&rn=10&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> </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> > <CC><A
href="http://zhidao.baidu.com/browse/74?lm=9">電腦/網絡</A> > <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> </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)+'&iu='+encodeURIComponent(location.href)+'&tn=%E7%9F%A5%E9%81%93%E9%97%AE%E9%A2%98%2C&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&aid=6&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) > 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
< 1 Then Exit; <BR>For i := Size Downto 1 Do <BR>Begin <BR>If Int And (1 Shl
(Size - i)) <> 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 <> '$' 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&aid=6&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> </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&qid=19884957&cm=6&tn=ikqbremark&mrn=25"
target=_blank>我來評論>></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>評價已經被關閉 <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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -