Массивы. Одномерные и двумерные массивы. Компоненты для работы с массивами by firaya

Массивы

firayaeskhatovna — 2017-11-01 10:04:15 UTC

Массив— это структура данных, представляющая собой набор переменных одинакового типа, имеющих общее имя. Массивы удобно использовать для хранения однородной по своей природе информации, например, таблиц и списков.

Объявление массива

firayaeskhatovna — 2017-11-01 10:07:31 UTC

var имя: [нижний_индекс..верхний_индекс] of тип;

где:

имя — имя массива;
array — зарезервированное слово языка Delphi, обозначающее, что объявляемое имя является именем массива;
нижний_индекс и верхний_индекс — целые константы, определяющие диапазон изменения индекса элементов массива и, неявно, количество элементов (размер) массива;
тип — тип элементов массива.

Одномерные массивы

firayaeskhatovna — 2017-11-01 10:19:32 UTC

Динамические массивы

firayaeskhatovna — 2017-11-01 10:22:33 UTC

Динамические массивы не имеют фиксированного размера или длины. Для объявления такого массива достаточно записать:

var имя : array of тип;

Использование компонента StringGrid

firayaeskhatovna — 2017-11-01 10:30:48 UTC

Для ввода массива удобно использовать компонент StringGrid. Значок компонента StringGrid находится на вкладке Additional

В качестве примера использования компонента stringGrid для ввода массива рассмотрим программу, которая вычисляет среднее арифметическое значение элементов массива. Диалоговое окно программы приведено на рисунке. Компонент stringGrid используется для ввода массива, компоненты Label1 и Label2 — для вывода пояснительного текста и результата расчета, Button1 — для запуска процесса расчета.

Процедура обработки события onkeypress

firayaeskhatovna — 2017-11-01 10:39:03 UTC

Процедура необходимая для того, чтобы курсор автоматически переходил в следующую ячейку таблицы, например, в результате нажатия клавиши

procedure TForml.StringGridlKeyPress(Sender: TObject; var Key; Char);
begin
case Key of
#8, ' 0 ' . . '9' : ; // цифры и клавиша
#13: // клавиша
if StringGridl.Col < StringGridl.ColCount - 1
then StringGridl.Col := StringGridl.Col + 1;
else key := Chr(O); // остальные символы запрещены
end;
end;

Многомерные массивы

firayaeskhatovna — 2017-11-01 10:43:12 UTC

Работа с динамическими массивами

firayaeskhatovna — 2017-11-01 11:31:03 UTC

Для выделения памяти для динамического массива используется процедура SetLength:

SetLength(My_Array,100);

После вызова этой процедуры будет выделена память для 100 элементов массива, которые будут проиндексированы от 0 до 99 (обратите внимание: индексирование начинается с нуля, а не с единицы!).

Динамические массивы - это неявные указатели и обслуживаются тем же самым механизмом, который используется для обработки длинных строк (long strings).

Чтобы освободить память, занимаемую динамическим массивом, присвойте переменной, которая ссылается на массив, значение nil: A:=nil.

Функции динамических массивов

firayaeskhatovna — 2017-11-01 11:32:50 UTC

Определение количества элементов производится с помощью функции Length:

N := Length(DynArray); // N получит значение 100

Элементы динамического массива всегда индексируются от нуля. Доступ к ним ничем не отличается от доступа к элементам обычных статических массивов:

DynArray[0] := 5; // Присвоить начальному элементу значение 5
DynArray[High(DynArray)] := 10; // присвоить конечному элементу значение 10

К динамическим массивам, как и к обычным массивам, применимы функции Low и High, возвращающие минимальный и максимальный индексы массива соответственно. Для динамических массивов функция Low всегда возвращает 0.