请问如何将汉字的ASICC码转换成宽字符?(50分)

Z

zhiqunluodelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #1

请问如何将汉字的ASICC码转换成宽字符?如下面程序:
StrMemo :='';
For i := 1 To (MessLen div 2) do
begin
If ReadBuf[2 * i - 2] > 127 Then
kk := 256 * (ReadBuf[2 * i - 2] - 256) + ReadBuf[2 * i-1]
Else
kk := 256 * ReadBuf[2 * i - 2] + ReadBuf[2 * i-1];
StrMemo := StrMemo + Chr(kk);
end;

如何将KK(双字节)的值转换成宽字符,谢谢!

 

王

王公子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #2

gz

 

R

resun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #3

一个字符你会转换了，两个字符你就不知道怎么转换了？
a:string;
b:array[0..2] of char;

a:='字';
b[0]:=a[1];
b[1]:=a[2];
然后对b[0],b[1]分别转换.......

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #4

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i:integer;
ss:widestring;
begin
s:='在一落千丈';
ss:=s;
for i:=1 to length(ss) do
showmessage(inttostr(ord(ss)));
end;

 

H

huawdg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #5

来晚了。
jsxjd 对!

 

Z

zhiqunluodelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #6

谢谢大家的回答,我是将比如'22312'转'在'如何做呢?

 

W

wr960204

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #7

showmessage(WideChar(22312));

 

Z

zhiqunluodelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-14

• #8

多人接受答案了。