转换问题(50分)

Q

qmwuu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #1

我现在有一个字符串：1234567。需要将其数据转换成十六进制为12D687，后填入数组中s:array[0..1024] of char。S[0]：=87；S[1]：=D6；S[2]：=12。不知道如何实现。

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #2

var
abc:char;
begin
abc:='c';
end;
//////////////////
//Err
var
abc:char;
begin
abc:='ch';
end;
//////////////////////
也就是说s[0]:=8 不能是87

 

Y

yjwnnit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #3

写一个过程吧. 如果不明白, 那就看书.

你不会是个新手来这里 要个小过程吧.!!

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #4

将16进制转为str在用
for i:=0 to length(str) do
s:=str;

 

Q

qmwuu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #5

我写错了。
s[0]:=chr($87);s[1]:=chr($D6);s[2]:=chr($12)

 

H

Highpeak

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #6

不用什么转换，直接move就可以了。
var
i:integer;
s:array[0..3] of char;
begin
i:=strtoint(1234567);
fillchar(s,4,$00);
move(i,s,4); // 将i放入s中。
end;