字符串转字节数组。

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

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;