问题代码如下:
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数组.
程序编译没有问题,但是执行到箭头所指的地方时就出现了上面的错误。自已实在是不明白这个问题出在哪里,还请各位大虾们指点一二,欢迎提供意见及建意。
   不胜感激!