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

[ayPinki]

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

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

а подскажите еще такая проблема, у меня длинна массива вот так задается
SetLength(ArrOfsteps, 500);
а подскажите как сделать так чтобы она была равна числу записанных элементов в нём. какая ни будь команда, "отрезать" всё что за конкретным индексом, а не нули там( в конце- оставшейся "незаполненной" части), они мне всё портят.

[lexaltd]

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

о, люди!)

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

Тут должно быть так
(не знаю как у вас там ошибка не вываливалась)

 for masi := 0 to Length(ArrOfsteps) - 1 do

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

Раз массив динамический так и создавайте его динамически

Навскидку

procedure MassiveOfSteps(UU1,UU2,UU3: Integer);
 begin
 SetLength(ArrOfsteps, Length(ArrOfsteps)+1);
 ArrOfsteps[Length(ArrOfsteps)-1]:=UU1;

 SetLength(ArrOfsteps, Length(ArrOfsteps)+1);
 ArrOfsteps[Length(ArrOfsteps)-1]:=UU2;

 SetLength(ArrOfsteps, Length(ArrOfsteps)+1);
 ArrOfsteps[Length(ArrOfsteps)-1]:=UU3;
 end;


 procedure TForm1.Button1Click(Sender: TObject);
 begin
 SetLength(ArrOfsteps, 0);
 цикл 
 изменяю xyz 
 MassiveOfSteps(x,y,z);
 изменяю x y z 
 MassiveOfSteps(x,y,z); 

 и тд 
 end;