如何把二进制“01100001”还原成‘a’
编号：QA003796
建立日期: 2001年1月18日 最后修改日期：2001年1月18日
所属类别：
Ziwa:
操作系统: windows98/nt/2000
编程工具: delphi
问题: 在Delphi中，当我把一个字符转换成二进制，比如字符'a'转换成“01100001”，我想知道如何把“01100001”还原成‘a’,谢谢！
水平: 中级
回答:
procedure TForm1.Button1Click(Sender: TObject);
var s :string;
i, j : integer;
n : integer;
begin
s := '01100001';
j := length(s);
n := 0;
for i := 1 to j do
begin
n := n + strtoint(s[i]) shl (j -i);
end;
ShowMessage(Chr(n));
end;
此问题由李海回答。
| |
|
|
| |
|
|
