Компоненты Delphi для работы с массивами и матрицами. - презентация

1 Компоненты Delphi для работы с массивами и матрицами

2 Пример использования компонента Edit для вывода массива Заполнить массив 10 случайными числами и вывести в компонент Edit

3 Пример использования компонента Label для вывода массива Заполнить массив 10 случайными числами и вывести в компонент Label

4 Пример использования компонента ListBox для вывода массива Заполнить массив 10 случайными числами и вывести в компонент ListBox

5 Пример использования компонента Memo для вывода массива Заполнить массив 10 случайными числами и вывести в компонент Memo

6 Пример использования компонентов для ввода массива Компонент Memo С помощью компонента ListBox можно вводить массивы так же, как и из компонента Memo, только вместо свойства Lines следует использовать свойство Items. Введение элементов одномерного массива с помощью компонента Edit (в одну строку через пробел) нуждается в создании специальной подпрограммы введения строчной величины и превращения ее в массив величин другого типа.

7 Компонент: таблица StringGrid Компонент StringGrid находится на странице Additional палитры компонентов. StringGrid - компонент для отображения различных данных в табличной форме. Основные свойства компонента StringGrid Таблица StringGrid состоит из выделенных серым FixedCols и FixedRows - зафиксированных ячеек-заголовков, и обычных, белых ячеек. Содержимое Fixed ячеек недоступно редактированию, и меняется только программно. Свойство Определение ColCount Количество столбиков таблицы RowCount Количество строк таблицы Cells Соответствующий таблице двумерный массив. Ячейка таблицы, которая находится на пересечении столбца col и строки row определяется элементом cells[col, row] FixedCols Количество зафиксированных налево столбиков таблицы. FixedRows Количество зафиксированных сверху строк таблицы. Options.goEditing Признак допустимости редактирования содержания ячеек таблицы. True редактирование разрешено, False запрещено Options.goTab Позволяет (True) или запрещает (False) использование клавиши для перемещения курсору в следующую ячейку таблицы DefaultColWidth Ширина столбиков таблицы DefaultRowHeight Высота строк таблицы

8 Компонент: таблица StringGrid Компонент StringGrid имеет возможность адресации каждой отдельной ячейки по номеру столбца и строки. Содержимое ячейки (i, j), где i - номер столбца, j - номер строки, имеет вид StringGrid1.Cells[i, j] и доступно как для чтения, так и для записи. Здесь, как и всегда, номера столбцов ( i ) и строк ( j ) отсчитываются от 0. Очистка компонента StringGrid

9 Пример использования StringGrid Вычислить сумму и среднее арифметическое компонентов массива 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; end.

10 Пример использования StringGrid Вычислить сумму и среднее арифметическое компонентов массива Процедура обработки события OnKeyPress procedure TForm1.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(0); // інші символы заборонені end; Данная процедура выполняет автоматический перевод курсора в следующую ячейку при нажатии «Enter», а также выполняет функции фильтрации данных (в ячейку разрешено вводить только цифры).

11 Пример использования StringGrid для ввода матриц Выполнить ввод матрицы из компонента StringGrid

12 Пример использования StringGrid для вывода матриц Выполнить вывод матрицы в компонент StringGrid Свойство Значение Name mb ColCount 5 5 FixedCol 1 FixedRow 1 Options.goColSizing true Options.goRowSizing true Options.goEditing true Options.Tabs true Свойства компонента StringGrid

13 Пример использования StringGrid Найти максимальный компонент матрицы и его местонахождение Обработчик нажатия по кнопке «Найти максимум»