请教如何把一个16进制的字符串转换成Byte数组(100分)

I

icegirl914

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-13

• #1

例：
Buffer
Array [0..6] of Byte;
StrAddress:= 'AA0A030B';
希望能转换为：
Buffer[0] := 'AA';
Buffer[1] := '0A';
Buffer[2] := '03';
Buffer[3] := '0B';


谢谢！

 

白

白河愁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-13

• #2

i:= 1;
j:= 0;
while i<Length(StrAddress) do
begin
Buffer[j]:= StrtoInt('$' + StrAddress + StrAddress[i+1]);
Inc(i, 2);
Inc(j);
end;

 

风

风铃夜思雨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-13

• #3

uses classes;

hexToBin(PAnsiChar(StrAddress), Buffer[0], SizeOf(Buffer));

 

I

icegirl914

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-13

• #4

谢谢二位的回答[]