Проблема с глобальным динамическим массивом4

← →
Max1111 (2003-04-04 12:57) [0]

Уважаемые мастера. Помогите Плиззз. Почему при обращении к одному из элементов глобально описанного массива , возникает ошибка:
Проект Project3.exe вызвал исключение класса EAccessViolation с сообщением ‘Access violation at address 0045E0CA in module Project3.exe’. Read of address 3FF5EB8d…

Код:

Procedure Poisk;
var j,k1,k2:byte;
Begin
{Нахождение f(X)}
for j:=0 to m do
Begin
k1:=0;
k2:=0;
for i:=1 to (n+a1+n+1) do
Begin
if i<=n then
mf[j]:=mf[j]+(sqr(mx[i-1])*ma[i-1,i-1,j]);
if (i>n) and (i<=(n+a1)) then
Begin
if k2<(n-1) then
k2:=k2+1
else
Begin
k1:=k1+1;
k2:=k1+1;
end;
if (k2<n) and (k1<=n) then
mf[j]:=mf[j]+2*ma[k1,k2,j]*mx[k1]*mx[k2];
end;
if (i>(n+a1)) and (i<=(n+a1+n)) then
mf[j]:=mf[j]+mx[i-n-a1-1]*mb[i-n-a1-1,j];
if i=(n+a1+n+1) then
mf[j]:=mf[j]+mc[j];
end;
showmessage("mf["+inttostr(j)+"]="+floattostr(mf[j]));
end;
{Нахождение F (большое)(mfb)}
{данная процедура использует локальную матрицу mfloc вместо глобальной
mf, тк при использовании последней, возникает неизвестная ошибка.Переприсваивание после
процедуры также не удается}
for j:=0 to 7 do
Begin
mfb[j]:=mf[0];
for i:=1 to m do
if mf[i]>0 then !!!Ошибка здесь
mfb[j]:=mfb[j]+exp(j*ln(10))*sqr(mf[i]);
showmessage("mfb["+IntToStr(j)+"]="+FloatToStr(mfb[j]));
end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var k1,k2,j,all,d1,d2,d3:byte;
{ed:TEdit;}
lb:TLabel;
{l,t,}k:Integer;
mfloc,mxloc,delta:array of real;
mfsloc:array of array of real;
maloc:array of array of array of real;
{F1:TextFile;}
begin
m:=5;
SetLength(mf,m+1);
poisk;
end;

← →
Думкин © (2003-04-04 12:59) [1]

Как массив описан?

← →
Max1111 (2003-04-04 13:01) [2]

mb:array of array of real;

в программе:
SetLength(mf,m+1);

← →
Думкин © (2003-04-04 13:03) [3]

> mb:array of array of real;

Так точно?

mf:array of array of real

if mf[i]>0 then
А это тогда как?

Проблема с глобальным динамическим массивом4 Найти похожие ветки