|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Проблема с массивом
procedure TForm1.SortPuz(Mass:array of integer);
var i:integer; flag:boolean; temp:integer; begin repeat flag:=false; for i:=low(Mass) to High(Mass)-1 do begin if Mass[i]>Mass[i+1] then begin Temp:=Mass[i]; Mass[i]:=Mass[i+1]; Mass[i+1]:=Temp; flag:=true; end; end; until flag=false; end; Почему когда я пишу var arr:array [0..9] of integer; begin ----Здесь я его заполняю---- SortPuz(Arr); //сортирую end; и вывожу (например в listbox) "новый" массив он нифига не сотрируется. Помоему процедура не изменяет переданный ей массив. |
#2
|
||||
|
||||
Элементарно. Потому что у тебя используется передача параметра по значению, а надо по ссылке. В твоем случае, в процедуре SortPuz создается локальная переменная Mass, которая заполняется значениями из передаваемого ей массива. Чтобы иметь возможность изменять передаваемый параметр, его нужно передавать по ссылке:
procedure TForm1.SortPuz(var Mass:array of integer); |
#3
|
|||
|
|||
Большое спасибо!
|