字符串转字节数组。

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

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;