Delphi如何将byte型的数组转换为字符串

 

　　核心提示：1、var buf:array[1..100] of byte; S1:string; s2: string; begin s1 := '12345'; Move(s1[1],buf[1],5); S...

1、

var
buf:array[1..100] of byte;
S1:string;
s2: string;
begin
s1 := '12345';
Move(s1[1],buf[1],5);
SetLength(s2,5);
Move(buf[1],s2[1],5);
ShowMessage(s2);  
2、

var
buf:array[1..100] of byte;
S1:string;
s2:string;
begin
s1 := '12345';
Move(s1[1],buf[1],5);
s2 := StrPas(pchar(@buf[1]));
ShowMessage(s2);  

3、

for i:=1 to 100 do
begin
s:=s+chr(buf[i]);
end;