FileRead(FileHandle,Buffer,FileLength);改成
FileRead(FileHandle,Buffer^,FileLength);
FileRead(FileHandle,Buffer^,FileLength);
解决方案 »
- 请问如何拦截程序运行?
- 建帐套问题,
- DX帮忙:程序在英文XP上运行,部分内容(Application.Title、OpenDialog等)会乱码,如何解决?
- 如何得取指定SQL server数据库(test)的数据空间及日志空间?
- 急救,checklistbox1出错
- 初學delphi,小小問題,請各位幫忙,謝謝.
- 请教这个DLL的错误
- delphi调试时出现这个Project Project1.exe raised exception class EAccessViolation
- 修改stringgrid某几列的背影色
- 怎么做出如FoxMail在Win2000下的半透明窗口?
- 对象生成问题
- 那位哥们帮看一下吧。我实在找不到错误在那里,提示错误是“insert into语法错误”
FileHandle:=FileOpen('Data\JXGZ.txt',fmOpenRead);
FileLength := FileSeek(FileHandle,0,2);
FileSeek(FileHandle,0,0);
Buffer := PChar(AllocMem(FileLength + 1));
FileRead(FileHandle,Buffer^,FileLength);
FileClose(FileHandle);