| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Изминение размера линейного масива [D7, WinXP]

Anwy ©   (2004-10-08 21:04:00) 

У меня возникла проблем. Я не могу изминить размер масива...

var
mass: array[1..100] of integer;
begin
n:=10;
randomize;
for i:=1 to n do begin
mass[i]:=random(100);
                end;
for i:=1 to n do begin
 if (mass[i] mod 2)<>0 then begin
  mass[i]:=mass[i+1];
   SetLength(mass,length(mass)-1);
                           end;
                 end;
end;


Вот мой код. Узнаём чётное число или нет (1) (mass[i] mod 2)<>0, потом если чётное сдвигаем на один символ в лево (2) mass[i]:=mass[i+1] и уменьшаем размер масива на 1 (3) SetLength(mass,length(mass)-1);

Но вот проблема в том что размер не меняется, в пункте (3) говорит что не совместимые типы.
В чём же проблема??? За ранее спасибо...

---

Anwy   (2004-10-08 21:48:00) [1]

Спасибо. То что и искал

---

Юрий Зотов   (2004-10-08 21:38:00) [2]

> Anwy ©   (08.10.04 21:36) [2]

F1 -  dynamic arrays. Там и как создавать, и как разрушать, и как длину менять, и все остальное.

---

Anwy   (2004-10-08 21:36:00) [3]

А можно тогда спросить? Как разрушать динамический масив?

---

Fenik   (2004-10-08 21:05:00) [4]

Нужен динамический массив:

mass: array of integer;

---

Наверх