战友们，帮忙啊。“贵”字如何转换为ASCII码，存入两字节中 ,在线等求助，弄了快一下午了(30分)

R

redcoffee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-11

• #1

因为使用的VB的例程，VB没有使用过，VB中如下：
SJis = Asc("贵&quot And &HFFFF& 注：SJis 得出为 47603
而我在D中 Ord(‘贵’) 值为 36149

在VB中最后写入：ArrB(X) = 185 ArrB(X + 1) = 243

请教：在D中如何计算“贵”字的ASCII码写入ArrB[X]及ArrB[X + 1]

 

M

myid0602

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-11

• #2

var
a:string;
Arrb:array[1..2] of integer;
begin
a:='贵';
arrb[1]:=ord(a[1]);
arrb[2]:=ord(a[2]);
end;

 

M

maxubodelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-11

• #3

同意楼上的.

 

R

redcoffee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-11

• #4

谢谢了，刚从公司回来（下雨），我试试去

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-11

• #5

UniCode

http://www.delphibbs.com/keylife/iblog_show.asp?xid=13397