Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > о динамическом массиве

Автор: kindDevil 23.8.2006, 21:16

Код


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 (хотя это одно и тоже), то ничегошеньки не работает.
объясните, почему.

Автор: volvo877 23.8.2006, 21:32

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

Цитата(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

Автор: volvo877 24.8.2006, 00:13

Цитата(Тьма @ 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

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

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

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

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

Автор: bems 24.8.2006, 02:15

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

)

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

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

Автор: Fedia 24.8.2006, 02:16

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

)

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

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

Цитата

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

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

Автор: kindDevil 24.8.2006, 02:23

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

Автор: Fedia 24.8.2006, 03:11

kindDevil,
Онегаи smile

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

)

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

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