如何把二进制字符串转换成字母， ( 积分: 50 )

B

badboy014081052

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-20

• #1

我用ord()函数可以将字母a转换成97，但不知道怎么转换回来，97即01100001，我现在想把01100001转换成字母a.请高手指点，

 

B

badboy014081052

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-20

• #2

我用ord()函数可以将字母a转换成97，但不知道怎么转换回来，97即01100001，我现在想把01100001转换成字母a.请高手指点，

 

D

david_jkl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-20

• #3

chr(ord('a)) 就可以了

 

B

badboy014081052

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-20

• #4

可我现在只有01100001这种字符串，没有字母，如何变成字母啊，01100001跟a都只是举个例子

 

O

oiwin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-20

• #5

procedure TForm1.Button1Click(Sender: TObject);
const
b2d :array[1..8] of Integer=(128,64,32,16,8,4,2,1);
var
s:string;
i,d:Integer;
begin
s:='01100001';
d:=0;
for i:=1 to 8do
d:=d+strtoint(s)*b2d;
Edit1.Text:=Char(97);
end;

 

B

badboy014081052

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-20

• #6

谢谢大家的帮助，问题已解决，分数不多，我是新手，没多少分，代表个心意，