DELPHI字符串间的转化问题(60分)

P

paulannar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #1

在delphi中我如何：
1 将两个Byte的数据转换为相应的汉字（汉字内码）
比如将 0xC5,0xC0 转换为'爬'。
2 将一个汉字赋值倒两个Byte中
比如将'爬'赋值，0xC5 -> Byte1；0xC0 -> Byte2
谢谢了！

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #2

a:arry of byte;
b:widestring;

move(a,b)

用move方法就可以了

 

刘

刘李子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #3

procedure TForm1.Button1Click(Sender: TObject);
var
cc:array[0..2]of char;
begin
strpcopy(cc,'爬');
showmessage(inttohex(byte( cc[0] ),2) +'==='+ inttohex( byte( cc[1] ),2));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
cc:array[0..2]of char;
begin
byte( cc[0] ):=$c5;
byte( cc[1] ):=$c0;
cc[2] :=#0;
showmessage( cc);
end;

 

P

paulannar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #4

这里的汉字是一个变量
我要想做相互的转换应该怎么编写？

 

I

iie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #5

str := chr(byte1)+chr(byte2);
byte1 := ord(str[1]);
byte2 := ord(str[2]);

 

P

paulannar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #6

多人接受答案了。