请教GetMem的用法

Question

var
  Text: PChar;
  Textlength: Integer;
begin
    TextLength := GetWindowTextLength(Edit1);
    GetMem(Text, TextLength + 1); //这句有什么用呢？

Answer 1

var
  FData: Pointer;
begin
  // 分配内存
  GetMem(FData, 100);
  try
    // do your job
  finally
    // 释放内存
    FreeMem(FData);
  end;
end;

Answer 2

  
GetMem(Text,   TextLength   +   1);   //分配长度为TextLength   +   1的内存，
以Text指向该内存。

Answer 3

一般API字符都用\0结束的,所以+1
AllocMem就比GetMem多了初始化0