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

[mixixi001]

RT~~~

[badgirlxiaoxiao]

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;

[lvjun]

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

move(lpStr[1], lpByte[0], n);

[etomahawk]

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

ShowMessage(sTmp);
//...
end;

[etomahawk]

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

[珍惜生命远离CPP]

你的转换规则是什么?

[僵哥]

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;