Массивы в программной среде Delphi Массив это структура данных, представляющая собой набор переменных одинакового типа, имеющих общее имя. Массивы удобно использовать для хранения однородной по своей природе информации, например, таблиц и списков.
Объявление массива Массив, как и любая переменная программы, перед использованием должен быть объявлен в разделе объявления переменных. В общем виде инструкция объявления массива выглядит следующим образом: Имя: array [нижний_интекс..верхний_интекс] of тип где: имя имя массива; array зарезервированное слово языка Delphi, обозначающее, что объявляемое имя является именем массива; нижний_интекс и верхний_и«текс целые константы, определяющие диапазон изменения интекса элементов массива и, неявно, количество элементов (размер) массива; тип тип элементов массива.
Примеры объявления массивов: t: array[1..31] of real; к 1: array[0..2] of integer; name: array[1..30] of string[25];
Операции с массивами Типичными операциями при работе с массивами являются: ввод массива; вывод массива; поиск максимального или минимального элемента массива; поиск заданного элемента массива; сортировка массива.
Ввод массива Под вводом массива понимается процесс получения от пользователя (или из файла) во время работы программы значений элементов массива. "Лобовое" решение задачи ввода элементов массива для каждого элемента массива создать поле ввода. Однако если требуется ввести достаточно большой массив, то такое решение неприемлемо. Представьте форму, например, с десятью полями редактирования! Очевидно, что последовательность чисел удобно вводить в строку таблицы, где каждое число находится в отдельной ячейке. Можно использовать два варианта организации ввода массива с использованием компонентов: StringGrid И Memo.
Использование компонента StringGrid Для ввода массива удобно использовать компонент StringGrid. Значок компонента StringGrid находится на вкладке Additional
Свойства компонента StringGrid
Пример использования компонента stringGrid для ввода массива рассмотрим программу, которая вычисляет среднее арифметическое значение элементов массива.
Компонент stringGrid используется для ввода массива, компоненты Label1 и Label2 для вывода пояснительного текста и результата расчета, Buttoni для запуска процесса расчета.
procedure TForml.ButtonlClick(Sender: TObject); var a : array[1..5] of integer; // массив summ: integer; // сумма элементов sr: real; // среднее арифметическое i: integer; // интекс begin // ввод массива // считаем, что если ячейка пустая, то соответствующий ей элемент массива равен нулю // for i:= 1 to 5 do if Length(StringGridl.Cells[i-1, 0]) <>0 then a[i] := StrToInt(StringGridl.Cells[i-1,0]) else a[i] := 0; // обработка массива summ := 0; for i :=1 to 5 do summ := summ + a[i]; sr := summ / 5; // вывод результата// Label2. Caption :='Сумма элементов: ' + IntToStr(summ)+ #13+ 'Среднее арифметическое: ' + FloatToStr(sr); end;