你管他什么显示方式,你要明白hex,ascii,他们在内存中都是同一个指针.搞数据通讯的,搞不明白16进制与ascii,那.....
//16进制转数组
procedure HexToPbyte(var vBuf:array of byte;HexStr : String);
var
I:Integer;
begin
for I := 1 to Length(HexStr)div 2 do
vBuf[i-1]:= StrToInt('$'+Copy(hexStr,i*2-1,2));
end;
//数组转16进制
function PbyteToHex(mbuf:array of byte;stlen:word):string;
var
I:Integer;
begin
Result:='';
for I := 0 to stlen-1 do
begin
if mbuf[i]=0 then
Result:=Result+'00'
else
Result:=Result+IntToHex(mbuf[I],2);
end;
end;