Скачать: CL | DM;

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

← →
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]

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

---

← →
Virgo_Style ©   (2005-11-12 10:44) [6]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c