请教 各位大哥一个问题，怎么把 byte 类型的数组 转换成为 字符串，谢谢！

Question

procedure TForm1.Button1Click(Sender: TObject);var
      i:integer;
      a:array [0..3] of byte;
      s:string;begin      a[0]:=48;
      a[1]:=49;
      a[2]:=73;
      a[3]:=67;      setlength(s,4);
    for  i:=0 to 3 do
         s[i+1]:=inttostr(com.ReData[i])[1];
    showmessage(s);
end;
show 出的结果是：4476
的到是48，49，73，67 的第一个字母我要怎么做才能得到正确的结果呢？问题2：      a[0]:=48;
      a[1]:=49;
      a[2]:=73;
      a[3]:=67;现在我需要得到 
showmessage（a[0]）得到的是： 0；
showmessage（a[1]）得到的是： 1；
showmessage（a[2]）得到的是： I；
showmessage（a[3]）得到的是： C；也就是说把 ASC 码值 转变 一般字符这样的要怎么做呢？谢谢各位大哥！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
      i:integer;
      a:array [0..3] of byte;
      s:string;
begin
      a[0]:=48;
      a[1]:=49;
      a[2]:=73;
      a[3]:=67;
      setlength(s,4);
    for  i:=0 to 3 do
         s[i+1]:=char(a[i]);
    showmessage(s);
end;

Answer 2

刚刚的是转成字符。
这个是显示ASCII串的。
procedure TForm1.Button1Click(Sender: TObject);
var
      i:integer;
      a:array [0..3] of byte;
      s:string;
begin      a[0]:=48;
      a[1]:=49;
      a[2]:=73;
      a[3]:=67;
    s:='';
    for  i:=0 to 3 do
         s:=s+IntToStr(a[i])+' ';
    showmessage(s);
end;

Answer 3

var
      a:array [0..3] of byte;
      s:string;
begin      a[0]:=48;
      a[1]:=49;
      a[2]:=73;
      a[3]:=67;      s:=strpas(@a);
      setlength(s,4);
      //或者用strmove(pchar(s),@a[0],4) ;
      showmessage(s);

Answer 4

var
      a:array [0..3] of byte;
      s:string;
begin
      a[0]:=48;
      a[1]:=49;
      a[2]:=73;
      a[3]:=67;
      setlength(s,4);
      move(a[0],s[1],4);
      showmessage(s);
-------------------------
掺和掺和....

Answer 5

var
      a:array [0..3] of byte;
      s:string;
begin
      a[0]:=48;
      a[1]:=49;
      a[2]:=73;
      a[3]:=67;
      setlength(s,4);
      move(a[0],s[1],4);------->a[0]纠正a
      showmessage(s);

Answer 6

同意一楼的，用char转换就可以了。