Ошибка access violation

[LLIALLIJIbIK]

Такая вот ошибка :/ Project.exe faulted with message: 'access violation at 0x00405a0d:write of address 0x00090cc8'. Если закомментировать последний цикл, то ошибка вылетает после закрытия главной формы запущенного проекта, а с циклом вылетает сразу по нажатию на кнопку.

procedure TForm1.SpeedButton4Click(Sender: TObject);
var
i:real;
k,j:integer;
begin
Form9.Visible:=True;
for j:=1 to 5 do begin
if j=High(Mechanism) then begin
Mpp:=Mp+Mechanism[j];
break;
end
else
begin
Mpp:=Mp+Mechanism[j];
Continue;
end;
end;
Jp:=(Hpl*power(Bpl,3))/12;
if (Lp/Bp>=1) and (Lp/Bp<1.55) then
al:=2.25*(Lp/Bp)+0.05;
if Lp/Bp>=1.55 then
al:=3.55;
if Lp/Bp<1 then
al:=1;
fp:=al*sqrt((Ep*Jp)/(power(Lp,3)*Mpp));
Form9.Edit1.Text:=FloatToStr(fp);
cpr:=sqrt(Ep/Pp);
fgr:=0.6*Hpl*cpr*((1/power(Bpl,2))+(1/power(Lpl,2)));
Form9.Edit2.Text:=FloatToStr(fgr);
Me:=0.7*Mpp;
for j:=1 to 5 do begin
if (j=High(Ordinate)) and (j=High(Abscissa)) then begin
Mass[j]:=Mpp*exp(ln((1+((36*power(Ordinate[j],2))/power(Bp,2))+((36*power(Abscissa[j],2))/power(Lp,2))))*(-1/2));
break;
end
else
begin
Mass[j]:=Mpp*exp(ln((1+((36*power(Ordinate[j],2))/power(Bp,2))+((36*power(Abscissa[j],2))/power(Lp,2))))*(-1/2));
Continue;
end;
end;
for j:=1 to 5 do begin
if j=High(Mass) then begin
Form9.Memo2.Lines.Add(FloatToStr(Mass[j]));
break;
end
else
begin
Form9.Memo2.Lines.Add(FloatToStr(Mass[j]));
Continue;
end;
end;
end;

[BDA]

Вы смогли придумать самое, кхм, экстравагантное использование High.

Например:

//описать функции min и max от 2 аргументов
...
for j := max(1, Low(Mechanism)) to min(5, High(Mechanism)) do //если хотите сложить элементы из диапазона [1, 5], но не уверены, что он лежит внутри диапазона [Low, High]
  Mpp := Mpp + Mechanism[j];//сокрее всего, не Mp, а Mpp

А вообще, с таким нагромождением букв и абсолютным отсутствием форматирования найти ошибку "проблематично".

[LLIALLIJIbIK]

Ммм, спасибо, помогло.

[eval]

а чего вы прицепились к этим 1 и 5?

[eval]

и учитесь пользоваться дебагером, первый адрес в ошибке - говорит о инструкции вызвавшей её. и не придется гадать

[LLIALLIJIbIK]

Да, надо бы. А вот теперь такая проблэма. На вот этой строке:

fp:=al*sqrt((Ep*Jp)/(power(Lp,3)*Mpp));

у меня Floating point division by zero. Значит вот эта конструкция:

for j:=max(1,Low(Mechanism)) to min(5,High(Mechanism)) do
Mpp:=Mp+Mechanism[j];

не работает. Следовательно не работает другая конструкция. Прошу оценить, уважаемые:

procedure TForm5.Button1Click(Sender: TObject);
begin
if (Edit1.Text='') or (Edit2.Text='') or (Edit3.Text='') then
ShowMessage('Введите оставшиеся параметры');
if Edit1.Text='0' then
ShowMessage('Введите значение больше нуля');
i:=1;
if not (Edit1.Text='') and not (Edit2.Text='') and not (Edit3.Text='') and not (copy(Edit1.Text,1,1)='-') and not (Edit1.Text='0') then begin
case i of
1:begin
SetLength(Mechanism,i);
SetLength(Abscissa,i);
SetLength(Ordinate,i);
SetLength(Mass,i);
Mechanism[i]:=StrToFloat(Edit1.Text);
Abscissa[i]:=StrToFloat(Edit2.Text);
Ordinate[i]:=StrToFloat(Edit3.Text);
end;
2:begin
SetLength(Mechanism,i);
SetLength(Abscissa,i);
SetLength(Ordinate,i);
SetLength(Mass,i);
Mechanism[i]:=StrToFloat(Edit1.Text);
Abscissa[i]:=StrToFloat(Edit2.Text);
Ordinate[i]:=StrToFloat(Edit3.Text);
end;
3:begin
SetLength(Mechanism,i);
SetLength(Abscissa,i);
SetLength(Ordinate,i);
SetLength(Mass,i);
Mechanism[i]:=StrToFloat(Edit1.Text);
Abscissa[i]:=StrToFloat(Edit2.Text);
Ordinate[i]:=StrToFloat(Edit3.Text);
end;
4:begin
SetLength(Mechanism,i);
SetLength(Abscissa,i);
SetLength(Ordinate,i);
SetLength(Mass,i);
Mechanism[i]:=StrToFloat(Edit1.Text);
Abscissa[i]:=StrToFloat(Edit2.Text);
Ordinate[i]:=StrToFloat(Edit3.Text);
end;
5:begin
SetLength(Mechanism,i);
SetLength(Abscissa,i);
SetLength(Ordinate,i);
SetLength(Mass,i);
Mechanism[i]:=StrToFloat(Edit1.Text);
Abscissa[i]:=StrToFloat(Edit2.Text);
Ordinate[i]:=StrToFloat(Edit3.Text);
end;
end;
if i=5 then ShowMessage('Граничное число элементов типа Механизм');
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Form5.Close;
end;
end;

[BDA]

Если бы Вам платили за количество строчек кода, то Вы бы были миллионером.
Опишите саму задачу.

procedure TForm5.Button1Click(Sender: TObject);
begin
  if (Edit1.Text='') or (Edit2.Text='') or (Edit3.Text='') then
  begin
    ShowMessage('Введите оставшиеся параметры');
    exit;
  end;
  i:=strtointdef(Edit1.Text, -1);
  if i = -1 then
  begin
    ShowMessage('Введите значение больше нуля');
    exit;
  end else if i=5 then
  begin
    ShowMessage('Граничное число элементов типа Механизм');
    exit;
  end;
  SetLength(Mechanism,i);
  SetLength(Abscissa,i);
  SetLength(Ordinate,i);
  SetLength(Mass,i);
  Mechanism[i-1]:=StrToFloat(Edit1.Text);
  Abscissa[i-1]:=StrToFloat(Edit2.Text);
  Ordinate[i-1]:=StrToFloat(Edit3.Text);
  Edit1.Text:='';
  Edit2.Text:='';
  Edit3.Text:='';
  Form5.Close;
end;

Примерные изменения кода (что-то конкретное не могу советовать, не зная, что вообще задумывалось).

[LLIALLIJIbIK]

Конкретно в данной процедуре задача в том, чтобы по первому и каждому следующему нажатию кнопки увеличивался массив и добавлялся новый элемент. По крайней мере, так задумывалось.

[BDA]

Тогда можно так:

procedure TForm1.Button2Click(Sender: TObject);
var
  a, b, c: real;
  k: integer;
begin
  if (Edit1.Text = '') or (Edit2.Text = '') or (Edit3.Text = '') then
  begin
    ShowMessage('Введите оставшиеся параметры');
    exit;
  end;
  try
    a := StrToFloat(Edit1.Text);
    b := StrToFloat(Edit2.Text);
    c := StrToFloat(Edit3.Text);
  except
    on e: exception do
    begin
      ShowMessage('Исправьте значения в параметрах');
      exit;
    end;
  end;
  k := length(Mechanism);
  if k = -1 then
    k := 1
  else
    inc(k);
  SetLength(Mechanism, k);
  SetLength(Abscissa, k);
  SetLength(Ordinate, k);
  SetLength(Mass, k);
  Mechanism[k - 1] := a;
  Abscissa[k - 1] := b;
  Ordinate[k - 1] := c;
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Form5.Close;
end;

UPD
Пожалуйста

[LLIALLIJIbIK]

Да, я приблизительно так же сделал. Главное работает. Спасибо Вам.