Delphi 中string字符串转换Byte[]字节数组

战石电子

于 2019-02-14 14:00:09 发布

阅读量5k

点赞数 1

分类专栏： Delphi 文章标签： Delphi string字符串转换 Byte[] 字节数组字符串转换字节数组

Delphi 专栏收录该内容

227 篇文章

订阅专栏

本文介绍了在Delphi中将字符串(string)转换为字节数组(Byte[])的三种方法。第一种方法使用了PChar和CopyMemory函数，第二种方法通过for循环逐个字符转换，第三种方法利用了Move函数进行快速转换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

string字符串转换Byte[]字节数组

procedure TForm1.Button1Click(Sender: TObject);
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;

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  ab:array of byte;
  i:integer;
begin
  s:='this is a test';
  SetLength(ab,Length(s));
  for i:=1 to length(s) do
    ab[i]:=byte(s[i]);
end;

b: array[1..7] of byte;

s: string;

SetLength(s, 7);

Move(b[1],s[1], 7 );

完美转换