[o919322]

Здравствуйте.
Есть тривиальный кусок кода:

Код:

var
  i: integer;
  mas_p:array[0..100] of integer;
begin
  for i:=0 to 80 do
    mas_p[i]:=i;
  ShowMessage(IntToStr(low(mas_p))); // выдает 0
  ShowMessage(IntToStr(high(mas_p))); // выдает 100
  ShowMessage(IntToStr(length(mas_p))); // выдает 101
  ShowMessage(IntToStr(SizeOf(mas_p))); // выдает 404
end;

Почему delphi7 выдает high = 100? Когда у меня введено в массив только 81 значение
И как правильно получить количество значений в массиве (в данном примере 81)?

[YVitaliy]

Функция Low возвращает минимальный индекс массива, функция high - максимальный индекс массива. Тоесть, если ты массив обьявишь так:

Код:

mas_p:array[-14..87] of integer;

то они тебе возвратят -14 и 87 соответственно.
Функция length возвращает длину массива, SizeOf - размер (в байтах) переменной=длина массива*SizeOf(элемент массива)=101*4 (4 - размер типа Integer).
Чтобы найти минимальное и максимальное значения, нужно осуществлять перебор по элементам массива и выбырать меньшее/большее.

[Lost_Fish]

Сообщение от o919322

Здравствуйте.
Есть тривиальный кусок кода:

Код:

var
  i: integer;
  mas_p:array[0..100] of integer;
begin
  for i:=0 to 80 do
    mas_p[i]:=i;
  ShowMessage(IntToStr(low(mas_p))); // выдает 0
  ShowMessage(IntToStr(high(mas_p))); // выдает 100
  ShowMessage(IntToStr(length(mas_p))); // выдает 101
  ShowMessage(IntToStr(SizeOf(mas_p))); // выдает 404
end;

Почему delphi7 выдает high = 100? Когда у меня введено в массив только 81 значение
И как правильно получить количество значений в массиве (в данном примере 81)?

у тебя массив длинной 101 элемент mas_p:array[0..100] of integer;
заполняешь его значениями ты только до mas_p[80] --> for i:=0 to 80 do остальное за тебя кто-то другой заполняет.
Решение при заполнении использовать конструкцию

Код:

for i:=Low(mas_p) to High(mas_p) do

и прочитай про динамические массивы

[NumLock]

-даже если ты ничего "не введешь" 100 будет
-никак, либо считать самому
-используй списки (TList), динамические массивы

[o919322]

Сообщение от NumLock

-даже если ты ничего "не введешь" 100 будет
-никак, либо считать самому
-используй списки (TList), динамические массивы

Т.е. я правильно понял, что нет функции, которая бы выводила количество заполненных значений массива? И чтобы найти количество заполненных значений надо устраивать перебор всего массива?
По-умолчанию при инициализации массива значения массива чем заполнены? Как определить что значение не заполнено?
Можно простой пример?

[PhoeniX]

Массив - это участок памяти. Каждый условный участок - это большое количество бит. У бита есть 2 состояния - единица или ноль, у него нет "пустого" состояния. Чем заполнен массив после объявления? Как повезёт. Иногда - нулями, иногда - мусором, оставшимся после того, как этот же блок освободил кто-то другой.

[Lost_Fish]

Есть такое понятие как динамический массив

Код:

var
    Ar:array of Integer

изначально его длинна не задана

Код:

SetLength(Ar,0)

устанавливает размер массива в данном случае - 0

Код:

SetLength(Ar,Length(Ar)+1)

добавляет один элемент в конец массива

работа с массивом также

Код:

Ar[i]:=i;

когда ты создаёшь массив Delphi только выделяет память из имеющейся свободной и ни кто не знает что было в этой памяти до того как она стала свободной, там могу быть нули а может быть и шлак всякий

Код:

SetLength(Ar,Length(Ar)-1)

это удалить последний элемент

функция

Код:

Length(Ar)

показывает длину массива

P.S. нумерация элементов динамического массива начинается с 0