delphi中如何将string类型的字符串数据转化成byte[]字节数组类型的数据

var
  S:String;
  P:PChar;
  B:array of Byte;
begin
  S:='Hello';
  SetLength(B,Length(S)+1);
  P:=PChar(S);
  CopyMemory(B,P,Length(S)+1);
  ShowMessage(Char(B[0]));
end;

Length(S)+1 可以拷贝字符串最后的 #0

var
 str:string;
 B:array of byte;

begin
 str:='string';
 setlength(b,length(str));
 move(byte(str[1]),B,length(str));
end;

move(byte(str[1]),B[0],length(str));

var
  S:String;
  P:PChar;
  B:array of Byte;
begin
  S:='Hello';
  SetLength(B,Length(S)+1);
  P:=PChar(S);
  CopyMemory(B,P,Length(S)+1);
  ShowMessage(Char(B[0]));
end;