procedure TForm1.btn1Click(Sender: TObject);
var
  verifyMsg         : array[0..48] of Char; //定长数组
  signedLen         : Integer;
  verfyFile         : TFileStream;
  str               : string;
  len               : Integer;
begin
  len := 48;
  str := 'hello world';

  FillChar(verifyMsg[0], len, 0);
// OK
// FillChar(verifyMsg, len, 0);

  CopyMemory(@verifyMsg[0], PChar(@str[1]), Length(str)); //要从str[1] 开始copy
// OK
// CopyMemory(@verifyMsg, Pointer(str), Length(str)); //str pointer pchar都可以
// OK
// CopyMemory(@verifyMsg, @str[1], Length(str)); //要从str[1] 开始copy

  verfyFile := TFileStream.Create('c:\\test.data', fmCreate or fmShareDenyRead);

// 方法1 Ok
  verfyFile.Write(verifyMsg[0], Length(verifyMsg));
// 方法 2 OK
// verfyFile.Write(PChar(@verifyMsg[0])^, Length(verifyMsg));
// 方法 3  OK
// verfyFile.Write(verifyMsg, Length(verifyMsg));

// 测试写入字符串
// 方法1    OK
// verfyFile.write(PChar(str)^,length(str));
// 方法 2  wrong
// 写入内容是错误的 可能是str的内部结构导致
// verfyFile.write(str, length(str));
// 方法 3 OK
// verfyFile.write(str[1], length(str));
// 方法 4  OK
// verfyFile.write(Pointer(str)^,length(str));

  freeAndNil(verfyFile);
end;

procedure TForm1.btn2Click(Sender: TObject);
var
  verifyMsg         : array of Char;    //动态数组
  signedLen         : Integer;
  verfyFile         : TFileStream;
  str               : string;
  len               : Integer;
begin
  len := 48;
  str := 'hello world';
  SetLength(verifyMsg, len);

// Error FillChar 参数不是指针,如下这行所以是错的.
// FillChar(verifyMsg, len, 0);
  FillChar(verifyMsg[0], len, 0);

// OK 接收参数是指针
  CopyMemory(@verifyMsg[0], @str[1], Length(str));
// 要从str[1] 开始copy
// CopyMemory(verifyMsg, PChar(@str[1]), Length(str));
  verfyFile := TFileStream.Create('c:\\test2.data', fmCreate or fmShareDenyRead);

// 方法 1    OK 接收参数是无参类型
// verfyFile.Write(PChar(@verifyMsg[0])^, Length(verifyMsg));
// 方法 2    OK 接收参数是无参类型
  verfyFile.Write(verifyMsg[0], Length(verifyMsg));

  freeAndNil(verfyFile);
end;