delphi中byte数组转string的疑问procedureTForm1.Button1Click(Sender:TObject);vararr:array[0..5]ofbyte;beginarr[0]:=ord('a');arr[1]:=ord('b');arr[2]:=ord('c');arr[3]:=ord('d');arr[4]:=ord('e');arr[5]:=ord('f');edit1.Text:=pc

Question

delphi 中 byte数组转 string的疑问
procedure TForm1.Button1Click(Sender:TObject);
var
arr :array [0..5] of byte;
begin
arr[0] := ord('a');
arr[1] := ord('b');
arr[2] := ord('c');
arr[3] := ord('d');
arr[4] := ord('e');
arr[5] := ord('f');
edit1.Text := pchar(@arr);
end;
edit1.text的值是'abcdef4?‘ ,怎么不是'abcdef',后面的‘4?’是哪来的?

Answer 1

长度多加一个,最后一个＝0,作为结束
arr:array [0..6] of byte
arr[6]:=0