类型转换，请高手帮忙（急用在线等待）(100分)

L

laijf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #1

var
s:array[0..1]of byte;
mess:string;
begin
如果将UCS2的S里的内容转换为mess,
s中假设是（98，201）

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #2

UCS2是什么？转换规则是什么？

 

L

laijf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #3

我也不是很清楚，好像加到s之前是一个WIDESTRING类型的

 

无

无疯无禄

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #4

WIDESTRING就是长字串类型呀?

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #5

mess:=pchar(@s);
showmessage(mess);

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #6

我刚刚查了一下，UCS2好象是一种编码，你是要将UCS2编码转换成GB码？
不过我没接触过这个，也不知该怎么做。

 

L

laijf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #7

dedema说的我刚才试了，不对得出的结果不对，因该是个‘拉’字

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #8

98对应的16进制62
201对应的16进制c9

caption :=WideChar($62c9)

这样就对了。

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #9

function BTW(b:array of byte): word;
var
dw, tdw: word;
begin
tdw := b[0];
dw := tdw shl 8;
tdw := b[1];
dw := dw + tdw;
result := dw;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
b: array[0..1]of byte;
w: word;
begin
b[0]:=98;
b[1]:=201;
w:=BTW(b);
caption :=WideChar(w)
end;

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #10

s[1]:=98;
s[0]:=201;
mess:=widechar(s);
showmessage(mess);

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #11

procedure TForm1.Button1Click(Sender: TObject);
var
S1: String;
S2: String;
C : WideChar;
begin
S1 := #98#201;
C := WideChar(Ord(S1[1])*256 + Ord(S1[2]));
S2 := C;
ShowMessage(S2);
end;

 

L

laijf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #12

dedema我简直太爱你，居然这么简单就搞定了，谢谢
谢谢谢谢谢谢谢谢谢谢谢谢