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

[jinlong2008]

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 码值 转变 一般字符

这样的要怎么做呢？



谢谢各位大哥！

[gzmhero]

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;

[gzmhero]

刚刚的是转成字符。
这个是显示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;

[何鲁青]

严重支持楼上老大...^_^

[jinjazz]

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);

[何鲁青]

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);
-------------------------
掺和掺和....

[何鲁青]

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);

[seekmydoom]

好久没有来学习了，学习学习

[Heyongfeng]

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

[jinlong2008]

谢谢 各位大哥！