Question

delphi 字节数组转字符串问题

ay : array[0..2] of byte;
str : string
如现在
ay[0] := $01;
ay[1] := $03;
ay[2] := $0b;
如何让str := 01030b;
初学,求教
1楼的不对
得出结果为str = 1311
ay[0] := $01;
ay[1] := $03;
ay[2] := $0b; //$01,$03,$0b为16进制
换成十进制
ay[0] := 1;
ay[1] := 3;
ay[2] := 11;
按1楼说法转换后str=1311,是错误的;
我想得到的是str=01030b

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
showstr:string;
ay: array[0..2] of byte;
i:integer;
begin
ay[0] := $01;
ay[1] := $03;
ay[2] := $0b;
for i:=0 to 2 do
showstr:=showstr + inttohex(ay[i],2); // _GetByte(inBuf[i]);
showmessage(showstr);
end;

Answer 2

ay: array[0..2] of byte;
i:integer;
begin
str:=str+inttostr(ay[a]);

Answer 3

for a:=Low(ay) to High(ay) do
str:=str+inttostr(ay[a]);