Question

delphi byte数组怎么转换成String

Answer 1

const
a: array[0..5] of Byte = (4,5,1,8,0,7);
var
i: Integer;
str: String;
begin
str:= '';
for i:= 0 to High(a) do
str:= str + IntToStr(a[i]);
ShowMessage(str);
end;