Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.24;
Скачать: CL | DM;

Вниз

Изминение размера линейного масива   Найти похожие ветки 

 
Anwy ©   (2004-10-08 21:04) [0]

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

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) говорит что не совместимые типы.
В чём же проблема??? За ранее спасибо...


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

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

mass: array of integer;


 
Anwy ©   (2004-10-08 21:36) [2]

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


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

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

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


 
Anwy ©   (2004-10-08 21:48) [4]

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



Страницы: 1 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.026 c
1-1097227891
$teve:o)
2004-10-08 13:31
2004.10.24
Как получить значение кокретной строки реестра


1-1097517111
jj
2004-10-11 21:51
2004.10.24
Понимают ли друг друга api ShowWindow и свойство Visible?


1-1096497679
Defunct
2004-09-30 02:41
2004.10.24
Exception: Not enough storage is available to process this ..


1-1097240952
Megabyte
2004-10-08 17:09
2004.10.24
Конструкция "Case n of"


3-1095941523
Snip
2004-09-23 16:12
2004.10.24
Динамическое создание компонетов TIBDatabase и TIBTransation