VPF::Получение процедурой динамического массива

asres1

Дата 8.5.2011, 23:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 30
Регистрация: 12.10.2010
Где: Украина

Репутация: 1
Всего: 1

Всем привет.
Хочу передать свой массив в процедуру, которая посортирует его и вернёт мне готовенький массив. Вот что сделал.

Код


type
TempoMaso=array of array of integer;

Код


procedure Sort(var TempMas:TempoMaso);
var i,j,x:Integer;
begin

SetLength(TempMas,12); //12 размер массива котрый хочу передать.

for j:=1 to Length(TempMas)-1 do
 begin
  for i:=1 to Length(TempMas)-j do
    begin
       if  TempMas[i]>TempMas[i+1] then
        begin
           x:=TempMas[i];
           TempMas[i]:=TempMas[i+1];
           TempMas[i+1]:=x;
        end;


    end;

 end;
end;

Жалуеться на [i]. Типо нельзя обращаться к элементам массива динамического

Код


procedure Sort(var TempMas:TempoMaso);
var i,j,x,a:Integer;
begin
  a:=2;
SetLength(TempMas,12,a);

for j:=1 to Length(TempMas)-1 do
 begin
  for i:=1 to Length(TempMas)-j do
    begin
       if  TempMas[i,a]>TempMas[i+1,a] then
        begin
           x:=TempMas[i,a];
           TempMas[i,a]:=TempMas[i+1,a];
           TempMas[i+1,a]:=x;
        end;


    end;

 end;
end;

После получасовых поисков нашёл ошибку. Простите, буду внимательней. Прошу модераторов не удалять, пусть висит, можёт кому пригодиться.

Это сообщение отредактировал(а) asres1 - 9.5.2011, 00:22

bems

Дата 10.5.2011, 00:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

Модератор: оффтоп удалён, тема закрыта

--------------------

Обижено школьников: 8

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »