难道Delphi帮助里的示例代码也会有错！

Question

这是我从帮助上抄下来的，运行时会报错，为什么？FileOpen, FileSeek, FileRead Example
---------------------------------------------------------------------
var
  iFileHandle: Integer;
  iFileLength: Integer;
  iBytesRead: Integer;
  Buffer: PChar;
  i: Integer
begin
  if OpenDialog1.Execute then
  begin
    try
      iFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead);
      iFileLength := FileSeek(iFileHandle,0,2);
      FileSeek(iFileHandle,0,0);
      Buffer := PChar(AllocMem(iFileLength + 1));
      iBytesRead := FileRead(iFileHandle, Buffer, iFileLength);
      FileClose(iFileHandle);      for i := 0 to iBytesRead-1 do
      begin
        //.....
      end;
    finally
      FreeMem(Buffer);
    end;
  end;
end;

Answer 1

:)没错，示例代码的确是错了，呵呵！
iBytesRead := FileRead(iFileHandle, Buffer, iFileLength);
必须写成
iBytesRead := FileRead(iFileHandle, Buffer^, iFileLength);