setlength

[ritty18]

Есть трехмерный массив: yp: array of array of array of double

Необходимо установить разную длину, делаю
intx, inty - некоторые целые числа
setlength(yp[intx, inty], length[intx, inty]+1);
Выдает ошибку, что левая часть не определена. Помогите правильно определять длину!

Спасибо заранее за помощь

[Аватар]

SetLength(yp,intx,inty,intz)

[ritty18]

мне нужно, чтобы 3 индекс был разным, увеличивался на 1 при необходимости

[GreenWizard]

setlength(yp[intx, inty], length(yp[intx, inty])+1);

попробуйте
хотя, скажу я вам, эти многомерные массивы страшнее алкоголя и сигарет... приводят к падению всего))

[ritty18]

так тоже пробовала, все равно пишет левая часть не определена

[Hacker19_90]

Так ок вопрос на засыпку
Причём тут Выделение памяти
и
Простите вот это

мне нужно, чтобы 3 индекс был разным, увеличивался на 1 при необходимости

?? Где же тут связь между индексами и количеством памяти?
Индексация в дин массивах всегда с 0, только так и не как иначе!

[GreenWizard]

вообще, тут проблема в обращение к элементам массива... самый простой вариант это типа:

procedure SetLen_(var Arr: array of Double; const L: integer);
begin
  SetLength(Arr, L);
end;
...........
SetLen_(yp[x, y], some_value);

Вообще, стоит переработать обьявление массива, разбить на более простые типы:

type
  ADouble = array of double;
  AADouble = array of ADouble;
  AAADouble = array of AADouble;
  PADouble = ^ADouble;
  PAADouble = ^AADouble;
  PAADouble = ^AAADouble;

а потом:

var
  Tmp: PADouble;
............
  Tmp := @yp[x, y];
  SetLength(Tmp^, Length(Tmp^) + 1);

так мы упрощаем компилятору работу и явно указываем что менять

[ritty18]

спасибо, мальчики! уже сама разобралась. Wizard поспособствовал этому, спасибо )

[GreenWizard]

ritty18, а покажи код, что вышел мы тут чуть поспорили на счёт моего подхода, а писать тест лень

[Аватар]

GreenWizard зачем такие сложности? Имея в переменных intx,inty,intz размерность массива создаем его с помощью SetLength(yp,intx,inty,intz), при необходимости увеличиваем intz на 1 и тот же SetLength(yp,intx,inty,intz) решает все проблемы