我是在一个文件夹下取所有文件进行处理,以下是代码,其中有一个文件执行到move一句时报Access violation at address 00450251 in module 'procedurenew.exe'.Reak of address 00215FFC错误,其他的文件都是正常的。不知道是怎么回事?哪位能帮忙分析一下吗?
move函数对源地址和目标地址的数据不是透明的吗?怎么会其中一个文件不行呢,这样不是就和数据有关吗?
tf :=TFileStream.Create(RealFileName,fmOpenRead);
tf.Position :=0;
iFileLength :=tf.Size;
Setlength(filebody,iFileLength);
tf.Read(filebody[0],iFileLength);
tf.Free;
setlength(arrFullData,ceil((iFileLength+1)/512)*512);
move(filebody,arrFullData[0],iFileLength);
for i :=iFileLength to length(arrFullData)-1 do
arrFullData[i] :=$0;
move函数对源地址和目标地址的数据不是透明的吗?怎么会其中一个文件不行呢,这样不是就和数据有关吗?
tf :=TFileStream.Create(RealFileName,fmOpenRead);
tf.Position :=0;
iFileLength :=tf.Size;
Setlength(filebody,iFileLength);
tf.Read(filebody[0],iFileLength);
tf.Free;
setlength(arrFullData,ceil((iFileLength+1)/512)*512);
move(filebody,arrFullData[0],iFileLength);
for i :=iFileLength to length(arrFullData)-1 do
arrFullData[i] :=$0;
解决方案 »
- 【菜鸟送100分】如何在鼠标悬停时显示series的值?
- 请强烈关注:有没有兄弟在浙江华美,杭州恒生,上海海信科技中呆过的?有一非常N人的简历我想验证一下
- 请问delphi如何设置编译输出的可执行文件的名称/
- 如何在Delphi导入excel读取excel数据
- ◆◆◆◆关于SpeedButton的Enabled为False导致图象丢失问题!!
- “类没有注册”是怎么回事?
- delphi提示这个错误,是什么意思,急?
- 急,一个关于运行出错的问题?在线等候
- 请教ActiveForm浏览器中的垂直滚动条。。。
- 怎样实现DelTree的功能?
- 急!!!!在线等,高手帮忙看看下面I/O的错误,如何改!
- 帮忙看看这个过程怎么才能加入一个进度条
修改成这样测试看看
为什么其他文件又不出错呢,就一个文件会出错。
zswang,能说说吗
因为还要存储下标信息
var
newnum :integer;
newstr :string;newnum :=345;
newstr :='sdfd';
move(newnum,fileindex[0],4);
move(PChar(newstr)^,fileindex[4],length(nwestr));