Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.27;
Скачать: 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 вся ветка

Текущий архив: 2005.11.27;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.057 c
14-1131517278
Lamer@fools.ua
2005-11-09 09:21
2005.11.27
В Киеве уже который день туман


14-1131312391
нечисть
2005-11-07 00:26
2005.11.27
Отключить звук в ИБП Ippon.


14-1131356808
diwww
2005-11-07 12:46
2005.11.27
Документация на русском к EhLib


1-1130850688
_Vox_
2005-11-01 16:11
2005.11.27
Почему не срабатывает try...except?


2-1131808608
Толян
2005-11-12 18:16
2005.11.27
картинка в базе