Delphi FileWrite函数

Question

var
  h: Integer;
  Buf: Pointer;
  s: AnsiString;
  iret: Integer;
begin
  //创建文件
  h := FileCreate('1.txt');
  if INVALID_HANDLE_VALUE = h then
    Exit;  //要写入的字符串
  s := 'hello 中国';  //分配内存空间
  GetMem(Buf, Length(s));
  try
    //复制字符串到内存空间
    StrCopy(Buf, PAnsiChar(s));    //写入文件，并判断返回值
    iret := FileWrite(h, Buf^, Length(s));
    if -1 = iret then
      raise Exception.Create('FileWrite err.');  finally
    FreeMem(Buf);
  end;
end;