товарищи помогите с процедурой

← →
RiP (2005-11-12 09:37) [0]

Удалено модератором
Примечание: СПАМ

← →
Tonich © (2005-11-12 10:08) [1]

ты неправильно передаешь массив,
снасало надо обьявить тип свой а затем его уж передавать как параметр
type TMyArray = array of integer procedure SortPuz (var Arr :TMyArray; n : Integer);

а вот про Эдит это что-то не совсем понял, ты что хочешь вывести весь массив в Эдит???

← →
MBo © (2005-11-12 10:32) [2]

>снасало надо обьявить тип свой а затем его уж передавать как параметр
Не обязательно. Можно и так, как написано - параметр-открытый массив, и N не передавать, а использовать High(Arr)

procedure SortPuz (var Arr : array of Integer);
var
i, j, Temp : Integer;
begin
for i := 0 to High(Arr) - 1 do
for j:= i+1 to High(Arr) do
if Arr[i] > Arr[j] then begin
Temp := Arr [i];
Arr [i] := Arr [j];
Arr [j] := Temp;
end;
end;

← →
RiP (2005-11-12 10:34) [3]

да я хочу вывести в едит отсорт массив

← →
SergP. (2005-11-12 10:38) [4]

> RiP (12.11.05 10:34) [3]
> да я хочу вывести в едит отсорт массив

Edit1.text:="";
for i=0 to high(arr) do Edit1.text:=Edit1.text+" "+inttostr(arr[i]);

← →
RiP (2005-11-12 10:40) [5]

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

RiP (12.11.05 10:40) [5]
объявляю ну это ведь уже неправельно получается

Object Pascal требует объявления переменных, все правильно.

товарищи помогите с процедурой Найти похожие ветки