江湖救急啊，关于中文字符的编码问题(100分)

W

wintern

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #1

中文字符
var
str: widestring;
i:integer;
begin
str:='你';
i:=ord(str[1]); //i 为中文字符'你'对应的码，20320
end;

然后如果得到 20320,怎么返回到 '你' 啊？？？

好像用 ord 的反函数 chr 不行啊

请问怎么获得啊？谢谢了

 

B

Block_K_E

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #2

看看chr(196)+chr(227)是啥[]
procedure TForm1.Button1Click(Sender: TObject);
var
str: string;
i,i1:integer;
begin
str:='你';

i:=ord(str[1]); //i 为中文字符'你'对应的码前面，196
i1:=ord(str[2]); //i1 为中文字符'你'对应的码后面，227
Label1.Caption :=chr(i)+chr(i1);
end;

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #3

请给分吧，出奇简单：

procedure TForm1.Button3Click(Sender: TObject);
begin
showmessage(widechar(20320)); // '你'
end;

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #4

来晚了：（

 

W

wintern

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #5

多人接受答案了。