字串转字节数组 一.CopyMemory var s:PAnsiChar; ary:TArray<Byte>; bt:Byte; begin s:='Form Delphi'; SetLength(ary,Length(); CopyMemory(ary,s,Length(s)); mmo1.Clear; for bt in ary do begin mmo1.Lines.Append(Chr(bt)); end; end; 二.Move var s:PAnsiChar; pb:PByte;
const AA : arrary[..] ,,,,) var BB : arrary[..] of byte; begin BB := AA ; {这样是错误的} Move(AA,BB,sizeof(BB)); {正确的} end; http://blog.csdn.net/shuaihj/article/details/6129575