Операции с массивами. Вывод массива. Ввод массива.
Листинг 5.1. Инициализация и вывод массива.
unit outar_;
interface
Windows, Messages, SysOtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TForml = class(TForm)
Buttonl: TButton;
Label1: TLabel;
procedure ButtonlClick(Sender: TObject);
private
{ Private declarations }
public
{Public declarations}
end;
var
Form1: TForm1;
implementation
{$R *,dfm}
const
NT = 5;
var
team: array[1..NT] of string[10] =('Зенит1,'Динамо1,'Ротор1,'Спартак','СКА') ;
procedure TForml.ButtonlClick(Sender: TObject);
var
st:string; // список команд
i:integer; // индекс, номер элемента массива
begin
// формирование списка для отображения в форме
for i:=l to NT do st := st + IntToStr(i)+ ' '+ team +#13;
// вывод списка
Label1.Caption := st;
end;
end
Ввод массива
Под вводом массива понимается процесс получения от пользователя (или из файла) во время работы программы значений элементов массива.
"Лобовое" решение задачи ввода элементов массива – для каждого элемента массива создать поле ввода. Однако если требуется ввести достаточно большой массив, то такое решение неприемлемо. Представьте форму, например, с десятью полями редактирования!
Очевидно, что последовательность чисел удобно вводить в строку таблицы, где каждое число находится в отдельной ячейке. Ниже рассматриваются два варианта организации ввода массива с использованием компонентов StringGrid и Memo.