如何将字节数组转换为字符串?

Question

procedure TForm1.Button1Click(Sender: TObject);
var
    tmpStr:String;
    sss:Array of Byte;
begin
    setLength(sss,10);
    //模拟输入字节数组数据
    sss[0]:=StrToInt(char('a'));
    sss[1]:=StrToInt(char('b'));
    sss[2]:=StrToInt(char('c'));
    sss[3]:=StrToInt(char('d'));
    sss[4]:=StrToInt(char('e'));
    sss[5]:=StrToInt(char('f'));
    sss[6]:=StrToInt(char('g'));
    sss[7]:=StrToInt(char('1'));
    sss[8]:=StrToInt(char('2'));
    sss[9]:=StrToInt(char('3'));
    tmpStr:=IntToStr(sss[0]);     //怎么转换成字符串并显示???
    ShowMessage(tmpStr);
end;

Answer 1

setlength(tmpStr,Length(sss));
move(sss[0],tmpStr[1],Length(sss));

Answer 2

sss[0]:=StrToInt(char('a'));这样写有问题吧sss[0]:=ord('a');

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
    tmpStr:String;
    sss:Array of Byte;
begin
    setLength(sss,10);
    //模拟输入字节数组数据
    sss[0]:=ord('a');
    sss[1]:=ord('b');
    sss[2]:=ord('c');
    sss[3]:=ord('d');
    sss[4]:=ord('e');
    sss[5]:=ord('f');
    sss[6]:=ord('g');
    sss[7]:=ord('1');
    sss[8]:=ord('2');
    sss[9]:=ord('3');
    tmpStr:=char(sss[0]);         
    ShowMessage(tmpStr);
end;