兄弟们,将字节数组转换成字符串用什么函数啊!?

Question

如题,有劳各位了

Answer 1

arrChar: array of Char;
    strTmp:string;procedure TForm1.Button2Click(Sender: TObject);
begin
SetLength(arrChar,6);
arrChar[0]:='a';
strTmp:=string(arrChar);//转
edit1.Text :=strTmp;
end;

Answer 2

不用转啊，直接用就可以了
如：
  var AC: Array[0..9] of char;
      str: String;
  str := ac;
  或者用StrPas吧

Answer 3

老大们,我是指将array of byte转成string

Answer 4

参考下面的过程。procedure TForm1.Button1Click(Sender: TObject);
var
  Bytes: array [0..9] of Byte;
  str:  AnsiString;
begin
  Bytes[0] := 48;  // 测试数据
  Bytes[1] := 49;  // 测试数据
  str := StringOfChar(#0,  High(Bytes) - Low(Bytes) + 1);
  move(Bytes, str[1], High(Bytes) - Low(Bytes) + 1);
  ShowMessage(str);
end;

Answer 5

function ByteArrayToString(aArray: array of Byte): String;
var
  i: Integer;
begin
  SetLength(Result, High(aArray) - Low(aArray));
  for i := Low(aArray) to High(aArray) do
    Result[i + 1] := Char(aArray[i]);
end;procedure TForm1.BitBtn1Click(Sender: TObject);
const
  S: array[1..5] of Byte =(65, 66, 67, 68, 69);
begin
  ShowMessage(ByteArrayToString(S));
end;