A arethusa Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-04 #1 求救:在delphi中,怎样将单字节的十六进制转化为双字节的ASCII?谢谢了!
T tianqisun3 Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-04 #3 可以先把单子节的16进制转换为字符串（用IntToStr())，然后对字符串进行分割，判断<br>是0-9还是a-f,如果是0-9好办。把分割的字符转换成数字加上30就0k，如果是啊a-f可以用<br>一个对应表转化。再把两个字节一合并就可以了
可以先把单子节的16进制转换为字符串（用IntToStr())，然后对字符串进行分割，判断<br>是0-9还是a-f,如果是0-9好办。把分割的字符转换成数字加上30就0k，如果是啊a-f可以用<br>一个对应表转化。再把两个字节一合并就可以了
A arethusa Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-04 #4 如果收到的数据为不可见的十六进制,怎么转换?调试的时候看到的都是乱码.
S SupermanTm Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-06 #5 procedure HexToAscii(X: Byte; P: PChar);<br> procedure HexToAscii1(X: Byte; P: PChar);<br> begin<br> case X of<br> 0..9: P^:= Chr(X + Ord('0'));<br> 10..15: P^:= Chr(X + Ord('A'));<br> end;<br> end;<br>begin<br> HexToAscii1((X shr 4), P);<br> Inc(P);<br> HexToAscii1((X and $F), P);<br>end;
procedure HexToAscii(X: Byte; P: PChar);<br> procedure HexToAscii1(X: Byte; P: PChar);<br> begin<br> case X of<br> 0..9: P^:= Chr(X + Ord('0'));<br> 10..15: P^:= Chr(X + Ord('A'));<br> end;<br> end;<br>begin<br> HexToAscii1((X shr 4), P);<br> Inc(P);<br> HexToAscii1((X and $F), P);<br>end;
