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

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
arr : array [0..6] 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');
arr[6] := 0;
edit1.Text := pchar(@arr[0]);
end;