这样能实现嘛？ ( 积分: 10 )

L

lilyqiu_80

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-23

• #1

我想把一个两位的字符串看成十六进制数，直接放到字节数组里去，能实现嘛？
例如：
var
str:string;
textbyte:array of byte;
begin
for i:=0 to 2 do
str:=copy('0a0002',2*i+1,2); //每次取出字符串中的两位数字
textbyte:=strtoint(str); //想实现把‘0a’直接放入字节数组里，可是a不
是整数，转换时会出错，应该怎么做呢？
end;

正常的赋值，可以这样写
textbyte:=$90;
可是写成textbyte:=$+str 是不行的，请问各位大侠，那要怎么实现呢？

 

L

lilyqiu_80

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-23

• #2

我想把一个两位的字符串看成十六进制数，直接放到字节数组里去，能实现嘛？
例如：
var
str:string;
textbyte:array of byte;
begin
for i:=0 to 2 do
str:=copy('0a0002',2*i+1,2); //每次取出字符串中的两位数字
textbyte:=strtoint(str); //想实现把‘0a’直接放入字节数组里，可是a不
是整数，转换时会出错，应该怎么做呢？
end;

正常的赋值，可以这样写
textbyte:=$90;
可是写成textbyte:=$+str 是不行的，请问各位大侠，那要怎么实现呢？

 

F

fyxr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-24

• #3

字节型不行吧？

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-24

• #4

procedure TForm1.Button1Click(Sender: TObject);
var
I : Integer;
str:string;
textbyte:array of byte;
begin
SetLength(textbyte, 2);
for i:=0 to 2 do begin
str:=copy('0a0002',2*i+1,2); //每次取出字符串中的两位数字
textbyte:=strtoint('$' + str); //想实现把‘0a’直接放入字节数组里，可是a不
end;
end;
这样就没问题了，在字符串前面加