delphi проблема с массивом

[Михаил22042016]

код переработан
поэтому перенес последний пост суда

что здесь не правильно

procedure TForm1.btn3Click(Sender: TObject);
var
i,j,k,x : Integer; Vektor: TArrayOfreal;
NewV,SL,LastV: Integer;  // New адрес нового вектора, SL № слоя, LastV № последнего вектора в слое
begin
btn3.Enabled:=False;
mmo1.Clear;
SetLength(SloyVib,4);
SL:=0+ StrToInt(edt1.Text);
SetLength(SloyVib[SL],Length(SloyVib[SL])+1);  // количество векторов в слое выборки
SetLength(SloyVib[SL][Length(SloyVib)+1].X,900);
img2.Canvas.StretchDraw(Rect(0,0,30,30), img1.Picture.Bitmap);
SloyVib[SL][Length(SloyVib)+1].X:= BMtoVektor(img2.Picture.Bitmap);


  for i := 0 to High(SloyVib) do begin     // слои
    mmo1.Lines.Add('i'+IntToStr(i)+' = '+IntToStr(Length(SloyVib[i]))) ;
  end;
  btn3.Enabled:=True;
end;

если

procedure NeuronCreate;
var n:Integer; i:Integer; SR: TSearchRec;
begin
  NeuronDestr;
  if FindFirst(FileMask, faAnyFile, SR) = 0 then
  begin
    repeat
      SetLength(Neuron,Length(Neuron)+1);
      Neuron[i]:=TNeuron.Create;
      Neuron[i].Name:=SR.Name;
      Neuron[i].M := TBitmap.Create;
      Neuron[i].M.LoadFromFile(ExtractFilePath(Application.ExeName)+'Memo\'+Neuron[i].Name);
      Neuron[i].sM:=SkanBM(Neuron[i].M);
      Neuron[i].stWt:=Neuron[i].M.Height*Neuron[i].M.Width;
//      ShowMessage('Имя файла = '+SR.Name+#13+
//      'Neuron['+IntToStr(i)+'].Name = '+SR.Name+#13+
//      'длин массива'+IntToStr(Length(Neuron)));
      Inc(i);
    until FindNext(SR) <> 0;
    FindClose(SR); //  освободить ресурсы
  end;
//  ShowMessage('Создано '+IntToStr(Length(Neuron))+' неирон(ов)');
end;

здесь таким же образом задается длинна массива и тут все работает как часики

[evg_m]

 LastV:=Length(SloyVib[SL]);
...
 SetLength(SloyVib[SL][LastV].X,900);

а массив-то только от 0 до Length(...) -1
и SloyVib[SL][LastV] НЕСУЩЕСТВУЮЩИЙ элемент.

как проверить работу с массивом

[Михаил22042016]

Сообщение от evg_m

SloyVib[SL][LastV] НЕСУЩЕСТВУЮЩИЙ элемент.

мб я как то не правильно понял
но

Сообщение от Михаил22042016

SetLength(SloyVib[SL],LastV+1);

добавляет этот елемент

[Михаил22042016]

procedure TForm1.btn3Click(Sender: TObject);
var
i,j,k : Integer; Vektor: TArrayOfreal;
New,SL,LastV: Integer;  // New адрес нового вектора, SL № слоя, LastV № последнего вектора в слое
begin
mmo1.Clear;
SetLength(SloyVib,33);
SL:=StrToInt(edt1.Text);
LastV:=Length(SloyVib[SL]);
SetLength(SloyVib[SL],LastV+1);  // количество векторов в слое выборки
LastV:=Length(SloyVib[SL]);
img2.Canvas.StretchDraw(Rect(0,0,30,30), img1.Picture.Bitmap);
Vektor:= BMtoVektor(img2.Picture.Bitmap);
// ShowMessage(IntToStr(SL)+#13#10+
// IntToStr(LastV)+#13#10);
  for i := 0 to High(SloyVib) do begin     // слои
    mmo1.Lines.Add('i'+IntToStr(i)+' = '+IntToStr(Length(SloyVib[i]))) ;
  end;
   SloyVib[SL][LastV] := Vektor;
//ShowMessage(IntToStr(SL)+#13#10+
//IntToStr(LastV)+#13#10);
//Form1.mmo1.Text:=TXT.Text;
//TXT.Clear;
//  mmo1.Lines.Add(IntToStr(Length(SloyVib))+' '+IntToStr(Length(SloyVib[32]))+' '+IntToStr(Length(SloyVib[32][0])));
end;

добился некоторой работы, некоторое время работает.
теперь как то рандомно таже ошибка вылазит

[Аватар]

SloyVib[SL][LastV] := Vektor;

См. #2

[Михаил22042016]

да, я смотрел, сделал как показано, ну вроде нету там ничего, а почему и как его туда запихать.

[evg_m]

добавляет этот елемент

добавляло ДО того момента как было сделано

LastV:=Length(SloyVib[SL]);

[Михаил22042016]

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

[Михаил22042016]

Сообщение от evg_m

добавляло ДО того момента как было сделано

ну как бы до того как оно было сделано, я LastV:= не использовал
гм... чото я совсем совсем не понимаю
помогите помогииииите

[evg_m]

я LastV:= не использовал

а это откуда? всего ТРИ последовательные строки кода.

Сообщение от Михаил22042016

LastV:=Length(SloyVib[SL]);
SetLength(SloyVib[SL],LastV+1);  // количество векторов в слое выборки
LastV:=Length(SloyVib[SL]);