字符串转字节数组。

一个字符串转换为字节数组的函数。


function ASCIIStrToHexByteArray(const P:PChar;var Buf:array of byte):integer;


var


I:integer;


OldP:PChar;


begin


OldP:=P;


I:=0;




while (OldP+1)^<>#0 do


begin


Buf[I]:=StrToInt('$'+OldP^+(OldP+1)^);


Inc(OldP,2);


Inc(I);


end; // while




Result:=I;


end;