请问像 -10532 这样的ASCII值如何转换成为字符？ ( 积分: 30 )

S

siso

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-08

• #1

上次经各位指点用
var i: Smallint;
begin
i:=(Ord(edit1.text[1])shl 8)+Ord(edit1.text[2]);
edit2.text:=inttostr(i);
end;
求出了汉字的ASCII码。像上面的-10532就是用汉字'周'的ASCII码。
可是问题是如何把-10532转化成汉字，用char或chr都只是转换正值的ASCII码，而-10532就
没法转换了。请各位再帮帮我。谢谢！

 

S

siso

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-08

• #2

上次经各位指点用
var i: Smallint;
begin
i:=(Ord(edit1.text[1])shl 8)+Ord(edit1.text[2]);
edit2.text:=inttostr(i);
end;
求出了汉字的ASCII码。像上面的-10532就是用汉字'周'的ASCII码。
可是问题是如何把-10532转化成汉字，用char或chr都只是转换正值的ASCII码，而-10532就
没法转换了。请各位再帮帮我。谢谢！

 

H

hmilyyanggq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-08

• #3

var s : String[3];
begin
s[2] := char(-10532 ) ;
s[1] := char(-10532 shr 8);
Edit1.text := s;
end;

 

S

siso

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-08

• #4

非常谢谢hmilyyanggq ，上次也是你帮我解答问题！

 

S

siso

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-08

• #5

再请问hmilyyanggq 一下
var s : String[3];
var d: integer;
begin
d:=-10532;
s[2] := char(d) ;
s[1] := char(d shr 8);
Edit2.text := s;
end;
上面的代码成功，但如果用下面的代码就不成功了。请问是怎么回事？谢谢！
var s : String[3];
var d: integer;
begin
d:=strtoint(edit1.text);
s[2] := char(d) ;
s[1] := char(d shr 8);
Edit2.text := s;
end;

 

S

siso

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-09

• #6

请hmilyyanggq再解答一下好吗，谢谢!