StrPCopy的问题，在线等答案。。。

Question

这个代码运行会报错，Access violation at address 00404F22 in module 'Project1.exe'. Read of address 63580013.请高手告知原因？？？
procedure TForm1.btn1Click(Sender: TObject);
var
  R: TRect;
  S: string;
  temp: array[0..50] of Char;
begin
  R := Rect(20, 20, 150, 30);
  S := 'This is a very long string which will' +
    'run into multiple lines of text.';
  { 采用StrPCopy函数转化string类型为PChar类型}
  DrawText(Canvas.Handle, StrPCopy(temp, S), -1, R, DT_CALCRECT or DT_WORDBREAK);
  Canvas.Brush.Style := bsSolid;
  Canvas.Rectangle(R);
  Canvas.Brush.Style := bsClear;
  DrawText(Canvas.Handle, StrPCopy(temp, S), -1, R, DT_WORDBREAK);
end;

Answer 1

哦，是你的temp太小了。 S的长度为69， temp才51