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

Question

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

Answer 1

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;

Answer 2

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

Answer 3

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

Answer 4

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;