问题代码如下:
var
DataArray:array[1..10] of array [1..5] of Extended; //用于存放全部结果
Datatemp:array[1..5] of Extended; //用于存储对比区数据
DataEnd: array[1..10] of array [1..5] of Extended; //用于存放最终结果
for i:=1 to 5 do
Datatemp[i]:=DataArray[10][i]; for r:=1 to 10 do
for c:=1 to 5 do
begin
--> DataEnd[r][c]:=Log10(DataArray[r][c]/Datatemp[c]);
if DataEnd[r][c] < 0 then
DataEnd[r][c]:=0;
end;
当程序运行执行到上面箭头所指的地方时出现如下错误对话框:
Project AA.exe raised exception class EAccessViolation with message 'Access violation at address 00479C7A in module 'AA.exe' write of address 00000021'.Process topped.UseStep or Run to Continue.
DataArray[10][5]数据表示我有10行的数据,每行有5个元数。上面的这段程序我是要得到DataArray中前9行中每一行的数据与最后一行(第十行)相对应元素的比值,并将比值取Log10。将结果存到DataEnd数组.
程序编译没有问题,但是执行到箭头所指的地方时就出现了上面的错误。自已实在是不明白这个问题出在哪里,还请各位大虾们指点一二,欢迎提供意见及建意。
不胜感激!
var
DataArray:array[1..10] of array [1..5] of Extended; //用于存放全部结果
Datatemp:array[1..5] of Extended; //用于存储对比区数据
DataEnd: array[1..10] of array [1..5] of Extended; //用于存放最终结果
for i:=1 to 5 do
Datatemp[i]:=DataArray[10][i]; for r:=1 to 10 do
for c:=1 to 5 do
begin
--> DataEnd[r][c]:=Log10(DataArray[r][c]/Datatemp[c]);
if DataEnd[r][c] < 0 then
DataEnd[r][c]:=0;
end;
当程序运行执行到上面箭头所指的地方时出现如下错误对话框:
Project AA.exe raised exception class EAccessViolation with message 'Access violation at address 00479C7A in module 'AA.exe' write of address 00000021'.Process topped.UseStep or Run to Continue.
DataArray[10][5]数据表示我有10行的数据,每行有5个元数。上面的这段程序我是要得到DataArray中前9行中每一行的数据与最后一行(第十行)相对应元素的比值,并将比值取Log10。将结果存到DataEnd数组.
程序编译没有问题,但是执行到箭头所指的地方时就出现了上面的错误。自已实在是不明白这个问题出在哪里,还请各位大虾们指点一二,欢迎提供意见及建意。
不胜感激!
解决方案 »
- 菜单和listbox相关问题!
- 在用VCLSKIN时,报 invalid pointer operation!
- ASN.1编解码?
- 关于word做报表输出的问题
- (100分)delphi怎么报表输出为pagemaker
- 请问关于效果的问题
- 急急。。。。。
- 100分,DELPHI中有哪些快捷键,说得越多分数越多
- 请教,以下语句为何无查询结果返回(详细内容请进)
- 如何用一个ClientSocket自动向多个ServerSocket发消息?我的程序就是ESocketError 10049:异步错,请进看看!
- 求教关于仪表软件开发平台的设计思路
- Delphi下调用MySql5的存储过程疑问:只能采用TQuery控件,而不能采用TADOStoredProc控件吗(采用它总是报语法错误)?
Datatemp[c]); ???放的是些什么数据?
把/ 改成 div 试试
会不会除0了?Datatemp[1]=0?