Передача значения массива в процедуру

[ayPinki]

вывод вот такой -

2
5
7
0
3
5
7
0
3
5
8
0
3
6
8
0
3
6
8
0
3
7
8
0
3
7
8
0
3
8
8
0
3
8
8
0
3
9
8
0
3
9
8
0
3
9
9
0
3
10
9
0

при таком коде -

procedure   MassiveOfSteps(UU1,UU2,UU3: Integer; var  ArrOfsteps:  array  of integer);
begin
 ArrOfsteps[masI]:=UU1;
 inc(masI);
 ArrOfsteps[masI]:=UU2;
 inc(masI);
 ArrOfsteps[masI]:=UU3;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
masI:=0;
цикл 
                 изменяю xyz 
                 MassiveOfSteps(x,y,z,ArrOfsteps[masI]);
                 изменяю x y z 
                 MassiveOfSteps(x,y,z,ArrOfsteps[masI]); 
 
и тд 
end;

откуда берется этот 0 между заходами в процедуру??

[lexaltd]

Скорей всего длина массива ArrOfsteps 4 ,а не 3

Покажите как вы объявили массив ArrOfsteps - динамический он или нет , и как вы выводите данные из него.

[ayPinki]

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

Скорей всего длина массива ArrOfsteps 4 ,а не 3

Покажите как вы объявили массив ArrOfsteps - динамический он или нет , и как вы выводите данные из него.

о, люди!)
так объявляю -

  ArrOfsteps:  array of  integer;

еще такая строка есть

SetLength(ArrOfsteps, 500);

а вывожу вот так

 for masi := 0 to Length(ArrOfsteps) do
  begin
  memo1.lines.add(inttostr(ArrOfsteps[masi])+' ');
  end;

[Аватар]

Ну даешь. Объявил параметр как открытый массив, а передаешь в качестве аргумента элемент массива. Туда и передается массив единичной размерности. И куда оно там пишет в процедуре, одному компьютерному богу известно. Прога должна загнутся, повезло, но что-то испортила. Присвой по индексу 400, скорее всего загнется

[ayPinki]

Сообщение от Аватар

Ну даешь. Объявил параметр как открытый массив, а передаешь в качестве аргумента элемент массива. Туда и передается массив единичной размерности. И куда оно там пишет в процедуре, одному компьютерному богу известно. Прога должна загнутся, повезло, но что-то испортила. Присвой по индексу 400, скорее всего загнется

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

[Аватар]

если параметром обращайся так MassiveOfSteps(x,y,z,ArrOfsteps)

а я тут подумал, его не обязательно передавать, он же у меня объявлен для всей проги, мб удалить его из названия процедуры?

Тоже можно

[ayPinki]

Сообщение от Аватар

если параметром обращайся так MassiveOfSteps(x,y,z,ArrOfsteps)
Тоже можно

 procedure MassiveOfSteps(UU1,UU2,UU3: Integer );

вот так решался вопрос... просто не в моих силах такую тонкость было увидеть.
но если мы всё можем так "объявить для всей программы" то какой смысл передавать в названии именно одни параметры а не другие ?

[Аватар]

Потому что так делать это зло, и чем больше и сложнее программа, тем злее. Самому же все тяжелей будет в ней разбираться и ошибки искать

[ayPinki]

Сообщение от Аватар

Потому что так делать это зло, и чем больше и сложнее программа, тем злее. Самому же все тяжелей будет в ней разбираться и ошибки искать

извините, но "так" это как?)

[Аватар]

Так это - "объявить для всей программы"