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

本文整理自网络，侵删。

 
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 );


完美转换

来源：https://blog.csdn.net/xyzhan/article/details/87269775
 

相关阅读 >>

Delphi formactivate与formshow事件有什么区别

Delphi 覆盖模式处理透明

Delphi 组件值实现增减

Delphi inttostransi

Delphi 让窗口一直置顶，并且焦点也不移出

Delphi源码基础源码-按下回车取得焦点

Delphi 使用google translate实现tts

Delphi 向其他程序发送模拟按键

delph i判断ip地址是否正确

Delphi trimright 删除字符串右边的空格

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 中string字符串转换Byte[]字节数组