VPF::о динамическом массиве - Форум программистов

kindDevil

Дата 23.8.2006, 21:16 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


type TIntegerArray = array of integer;

procedure Delete_Smth(a:TIntegerArray;Index:integer);

implementation

procedure Delete_Smth (a:TIntegerArray;Index:integer);
begin
If Index = high(a) then
SetLength (a,high(a)-1);

if Index < High(a) then
  begin
    a[index] := a[index+1];
    Setlength (a,high(a)-1);
  end;
end;

так вот, если взять и поставить вместо TIntegerArray обычный array of integer (хотя это одно и тоже), то ничегошеньки не работает.
объясните, почему.

Это сообщение отредактировал(а) kindDevil - 23.8.2006, 21:17

volvo877

Дата 23.8.2006, 21:32 (ссылка)

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

Загрузка ...

Эксперт

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

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

kindDevil,
потому, что здесь:

Код

procedure Delete_Smth(a:TIntegerArray;Index:integer);

TIntegerArray означает динамический массив, а если написать

Код

procedure Delete_Smth(a: array of integer;Index:integer);

, то будет Open Array - открытый массив, а это - две большие разницы... В частности, SetLength неприменима к открытым массивам...

Тьма

Дата 23.8.2006, 23:52 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(volvo877 @ 23.8.2006, 21:32

)

В частности, SetLength неприменима к открытым массивам...

если я тебя правильно понял, то такой кусок кода

Код


var a : array of integer;
begin
SetLength(a, 1);
ShowMessage(inttostr(High(a)));
SetLength(a, 10);
ShowMessage(inttostr(High(a)));

в первом и втором сообщении вывидет одинаковые цифры?
но это не так : вначале оно выводит 0, а затем 9

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

Vir magni ingenii

volvo877

Дата 24.8.2006, 00:13 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Тьма @ 23.8.2006, 23:52

)

если я тебя правильно понял

Да неправильно ты меня понял... У тебя опять же динамический массив, а никак не Open Array... Я что показал?

Код


procedure test(a: array of integer);
begin
  SetLength(a, 1);
  ShowMessage(inttostr(High(a)));
  SetLength(a, 10);
  ShowMessage(inttostr(High(a)));
end;

и попробуй это откомпилировать!

kindDevil

Дата 24.8.2006, 01:56 (ссылка)

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

Загрузка ...

Шустрый

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

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

volvo877,
выводит 0 и 9 smile

если указывать вместо a: array of integer, TIntegerArray.
только по свойствам своим я никакущей в них разницы не вижу.
и если они две большие разницы, то почему один можно заменить другим?

получается, что весь смысл "открытых" массивов состоит в отличном обозначении от динамических?
имхо, бред, товарищи.

ну или объясните получше, чем тов. volvo smile

bems

Дата 24.8.2006, 02:15 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(kindDevil @ 24.8.2006, 01:56

)

ну или объясните получше, чем тов. volvo

запись array of XXX обозначает динамический массив везде кроме объявления параметра процедуры/функции. Там это массив типа ХХХ любой размерности, в частности статический

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

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

Fedia

Дата 24.8.2006, 02:16 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 465
Регистрация: 2.8.2006
Где: первым встречаю р ассвет

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

Цитата(kindDevil @ 24.8.2006, 01:56

)

получается, что весь смысл "открытых" массивов состоит в отличном обозначении от динамических? имхо, бред, товарищи.

Так уж устроена среда, в которой ты работаешь.
Нашел такое определение открытого массива:

Цитата

открытый массив - это всего лишь объединение массива и его длины в одно понятие при передаче параметров. При работе с открытым массивом возможны лишь операции чтения-записи элементов массива. Открытым массивом нельзя манипулировать как целым, нельзя изменить его длину. Попытайтесь присвоить динамический массив открытому массиву или наоборот, попытайтесь изменить длину открытого массива процедурой SetLength. Компилятор всего этого не позволит. Таким обрразом, работа с открытым массивом не предполагает неявного выделения или освобождения динамической памяти.

ЗЫ: у тебя удаление элемента из массива реализовано некорректно. При удалении из середины массива ты последующий элемент поставишь на место удаляемого, и сократишь длину массива на 2 элемента. Таким образом, ты можешь сделать дубль элемента с номером index+1 и удалить последние 2 элемента, которые не при чем.

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

Накануне решающей битвы
Я иду, и надеждою зыбкой
Озаряется эта дорога,
Я мечтаю увидеть улыбку
На лице победившего Бога…

kindDevil

Дата 24.8.2006, 02:23 (ссылка)

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

Загрузка ...

Шустрый

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

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

Fedia,
аригато!
("спасибо" по-японски =) )

Fedia

Дата 24.8.2006, 03:11 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 465
Регистрация: 2.8.2006
Где: первым встречаю р ассвет

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

kindDevil,
Онегаи smile

Цитата(kindDevil @ 24.8.2006, 01:56

)

ну или объясните получше, чем тов. volvo

В этом случае к volvo877 придраться нельзя, он дал тебе необходимый набор терминов, а все остальное мог бы найти и сам smile

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

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