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;