delphi中BYTE数组和String之间怎样相互转换？

Question

RT~~~

Answer 1

var
  pByte: array[0..99] of char;
  sTmp : string;
begin
  sTmp:= PChar(@pByte[0]);  ShowMessage(sTmp);
  //...
end;

Answer 2

pByte: array[0..99] of char; //不好意思，写错了，使BYTE,不是char.

Answer 3

var
  bytes: array [0..10] of byte;
  pBytes: array of byte;
  str: String;
begin
  SetLength(str, Length(bytes));
  Move(bytes[0],PChar(str)^,Length(bytes));  SetLength(pBytes,Length(str));
  Move(PChar(Str)^, pBytes[0], Length(str));  SetLength(pBytes,0);
  pBytes := Nil;
end;

Answer 4

var
  arrbyte: array[0..2] of Byte;
  str1: string;
  i: Integer;
begin
  for i := 0 to Length(arrbyte)-1 do
    str := str + IntToStr(arrbyte[i]);//byte[] to string;  for i := 0 to Length(str)-1 do
    arrbyte[i] := Byte(str[i]);//string to byte[]  StrCopy(PChar(@arrbyte),PChar(str));//string to byte[]
end;

Answer 5

你是想互相倒数据吗？move就可以了
setleng(lpStr, n);
move(lpByte[0], lpStr[1], n);move(lpStr[1], lpByte[0], n);