Обращение к элементам массива через указатель

[Miha85193]

а почему не передать его как открытый массив?

А как это?

[Don Karleone]

есть динамический массив:
mas: array of byte;

есть процедура:
procedure A(m: array of byte); {здесь m - открытый массив}
var
i, j: smallint;
begin
i:=High(m); {индекс последнего элемента массива m}
j:=Length(m); {длина массива m}
end;

индексация открытых массивов идет с 0 также как и в динамических. Для того чтобы передать этой процедуре динамический массив его в начале естественно надо создать (SetLength(mas,10) ). Ну а дальше пишем вызов процедуры и передаем ей массив mas: A(mas);

[Miha85193]

А массив обязательно должен быть array of тип, или можно объявить и передать в качестве параметра, массив фиксированной длины?

[Don Karleone]

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

А массив обязательно должен быть array of тип, или можно объявить и передать в качестве параметра, массив фиксированной длины?

если известна длина массива, то его можно передать например так:
procedure A(m: array [0..10] of byte);
соответственно массив который будет передаваться как фактический параметр должен быть описан также:
var
mas: array [0..10] of byte;

[Miha85193]

Задать массив, как параметр процедуры/функции, это я умею. Меня интересует: то как можно передать процедуре массив любой длины, и чтобы она сумела получить доступ к любому элементу этого массива.

[Don Karleone]

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

Задать массив, как параметр процедуры/функции, это я умею. Меня интересует: то как можно передать процедуре массив любой длины, и чтобы она сумела получить доступ к любому элементу этого массива.

ну я же тебе написал. Используй динамический массив. В списке формальных параметров пропиши его как открытый массив и потом делай с ним что хочешь. Индексация открытых массивов идет с 0. При помощи функции High ты получишь индекс последнего элемента массива. Например если создашь динамический массив из 10 элементов (SetLength(mas,10)) и передашь его в процедуры как я тебе писал, то в этой процедуре ты можешь написать например цикл обнуления всех элементов массива:
for i:=0 to High(m) do
m[i]:=0;
или обратиться к любому из них. Главное что ты знаешь границы массива (от 0 до High(m))!!!

функция Length возвращает количество элементов массива. В данном примере она вернет 10.

[Miha85193]

И что такой процедуре будет "все равно" какой массив ей передан в качестве параметра, динамический или фиксированной длины? Лично я в этом сомневаюсь.

[Don Karleone]

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

И что такой процедуре будет "все равно" какой массив ей передан, динамический или фиксированной длины? Лично я в этом сомневаюсь.

а ты проверь

[Miha85193]

Да действительно, проверил все работает. Вот только жаль нельзя использовать в качестве параметра указатель на массив. Еще есть одна проблема: компилируется эта процедура как-то странно. Вот рисунок:

На рисунке можно увидеть, что High(Array_) вроде как не компилируется. Но в действительности при трассировке, видно что все-таки проходит компиляцию так, как Higher в цикле как не странно равен последнему индексу массива. Возможно у тебя тоже была такая же ситуация с применением High. Лично я не понимаю, в чем тут дело

[Don Karleone]

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

Возможно у тебя тоже была такая же ситуация с применением High. Лично я не понимаю, в чем тут дело

я тоже не понимаю Но работает верно