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;