如何把Byte数组转换成为String

Question

如何把Byte数组转换成为String如何把String转换为Byte数组。谢谢！请举例说明！

Answer 1

全部写在一个Procedure里了。。你要是用得上就自已做成Function吧var
  ByeAry:Array of byte;
  StrA:String;
  IntLen:Integer;
begin
  StrA:=Edit1.Text;
  IntLen:=Length(StrA);
  Setlength(ByeAry,IntLen);
  CopyMemory(ByeAry,Pchar(StrA),IntLen);//String To Byte
  StrA:='';
  SetLength(StrA,Intlen);
  CopyMemory(Pchar(StrA),ByeAry,IntLen);//Byte To String
  Edit2.Text:=StrA;

Answer 2

var aa:array[0..100] of byte;
    S:string;
   SetLength(S,Sizeof(aa));
   Move(aa,s[1],Sizeof(aa));
  
  ...
  s:='123456789';
  move(s[1],aa,length(s));