数组问题请问在edit2中为什么是乱码，或者是'haijun#0'，或者是其他？？？？？？？？？？？？？？

Question

temp2[0]:='h';
  temp2[1]:='a';
  temp2[2]:='i';
  temp2[3]:='j';
  temp2[4]:='u';
  temp2[5]:='n';
  sendMessage(Handle ,WM_SETTEXT, 6, longint(@temp2)); 
  SendMessage(Handle ,WM_GETTEXT,6,longint(@Temp1));
  edit2.Text := string(Temp1);

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  Temp2 : Array [0..5] of Char ;
begin
  temp2[0]:='h';
  temp2[1]:='a';
  temp2[2]:='i';
  temp2[3]:='j';
  temp2[4]:='u';
  temp2[5]:='n';
  PostMessage(Handle ,WM_SETTEXT, 6, longint(@temp2));
  edit1.Text := string(Temp2);
end ;

Answer 2

procedure TForm1.Button2Click(Sender: TObject);
var temp1: array [0..6] of char;
    temp2: array [0..5] of char;
begin
  temp2[0]:='h';
  temp2[1]:='a';
  temp2[2]:='i';
  temp2[3]:='j';
  temp2[4]:='u';
  temp2[5]:='n';
  sendMessage(Edit1.Handle ,WM_SETTEXT, 6, longint(@temp2));
  SendMessage(Edit1.Handle ,WM_GETTEXT,7,longint(@Temp1));
  edit2.Text := strpas(Temp1);
end;