简单问题,进来看看(100分)

从帮助抄的,都有错
procedure TForm1.Button1Click(Sender: TObject);
var iFileHandle: Integer
iFileLength: Integer
iBytesRead: Integer
Buffer: PChar;
begin
try
iFileHandle := FileOpen('c:/1.txt', fmOpenRead);
iFileLength := FileSeek(iFileHandle,0,2);
FileSeek(iFileHandle,0,0);
Buffer := PChar(AllocMem(iFileLength + 1));
iBytesRead := FileRead(iFileHandle, Buffer, iFileLength);
FileClose(iFileHandle);
finally
FreeMem(Buffer)
//////////出错信息Invalid pointer operation
end;
end;

试了，没有问题呀！

你试试打开一个XML,
释放buffer时会出错
这个我以前也用过,难道是DELPHI坏了??

代码应该没有问题！

我这里100%出错,[!]
谁有读一个文件到BUFFER的程序
给我一个吧,

下班了,还没搞定,55~~~~~

不错，Delphi的例子也有错的，这就是一例，错误在以下一句
iBytesRead := FileRead(iFileHandle, Buffer, iFileLength);
正确的应该是
iBytesRead := FileRead(iFileHandle, Buffer^, iFileLength);
以后一定要注意类似的问题，就是当参数是var而没有声名任何类型时，一定当心了

接受答案了。