ніжній_індекс..верхній_індекс] of тип,
де:
ім'я - ім'я масиву; - зарезервоване слово мови Delphi, що позначає, що оголошується ім'я є ім'ям масиву;
ніжній_індекс і верхній_і" декс - цілі константи, що визначають діапазон зміни індексу елементів масиву і, неявно, кількість елементів (розмір) масиву;
тип - тип елементів масиву.
Приклади оголошення масивів:
temper: array [1..31] of real;
коef: array [0..2] Of integer;: array [1..30] of string [25];
При оголошенні масиву зручно використовувати іменовані константи. Іменована константа оголошується в розділі оголошення констант, який зазвичай розташовують перед розділом оголошення змінних. Починається розділ оголошення констант словом const. В інструкції оголошення іменованої константи вказують ім'я константи і її значення, яке відділяється від імені символом одно raquo ;. Наприклад, щоб оголосити іменовану константу нв, значення якої дорівнює 10, у розділ const треба записати інструкцію: нв=ю. Після оголошення іменованої константи її можна використовувати в програмі як звичайну числову або символьну константу. Нижче як приклад наведено оголошення масиву назв команд-учасниць чемпіонату з футболу, в якому використовуються іменовані константи.
Const=18;// Число команд=25;// Гранична довжина назви команди var
team: array [1..NT] of string [SN];
Для того щоб у програмі використовувати елемент масиву, треба вказати ім'я масиву і номер елемента (індекс), уклавши індекс у квадратні дужки. В якості індексу можна використовувати константу або вираз цілого типу, наприклад:
[1]:= Зеніт raquo ;;:=koef [l] * koef [l] - 4 * koef [2] * koef [1];
ShowMessage (name [n + 1]); [i]:=StrToFloat (Edit1.text);
Якщо масив не є локальним, тобто оголошений не в процедурі обробки події, а в розділі змінних модуля, то одночасно з оголошенням масиву можна виконати його ініціалізацію, тобто привласнити початкові значення елементів масиву.
Інструкція оголошення масиву з одночасною його ініціалізацією в загальному вигляді виглядає так:
Ім'я: array [ніжній_індекс..верхній_індекс] of тип=(список);
де список - розділені комами значення елементів масиву. Наприклад:
: array [10] of integer=(0,0,0,0,0,0,0,0,0,0) ;: array [1..5] of String [10]=(laquo;Зенитraquo;,laquo;Динамоraquo;,laquo;Спартакraquo;,laquo;Роторraquo;,laquo;СКАraquo;);
Зверніть увагу, що кількість елементів списку ініціалізації повинно відповідати розмірності масиву. Якщо це буде не так, то компілятор виведе повідомлення про помилку: Number of elements differs from declaration (кількість елементів не відповідає зазначеному в оголошенні). При спробі ініціалізувати локальний масив компілятор виводить повідомлення про помилку: Can not initialize local variables (локальна змінна не може бути инициализирована). Локальний масив можна ініціалізувати тільки під час роботи програми, наприклад, так:
for i:=1 to 10 do a [i]:=0;
2.3 Висновок масивів
Під виведенням масиву розуміється висновок на екран монітора (в діалогове вікно) значень елементів масиву. Якщо в програмі необхідно вивести значення всіх елементів масиву, то для цього зручно використовувати інструкцію for, при цьому змінна-лічильник інструкції for може бути використана в якості індексу елемента масиву. Як приклад на рис. 5.1 приведено діалогове вікно програми, яке демонструє ініціалізацію і процес виведення значень елементів масиву в поле мітки. Програма виводить пронумерований список футбольних команд. Слід звернути увагу, що для того щоб список команд виглядав дійсно як список, властивості Label1.AutoSize потрібно привласнити значення False. (Див. Рис. 13):
Рис. 13. Виведення масиву
Код виведення масиву наступний:
unit outar_ ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;=class (TForm): TButton ;: TLabel; ButtonlClick (Sender: TObject);
{Private declarations} public
{Public declarations} end ;: TForm1; ($ R * .dfm}=5 ;: array [1..NT] of string [10]=(laquo;Зенитraquo;,laquo;Динамоraquo;,laquo;Роторraquo;,laquo;Спартакraquo;,laquo;СКАraquo;TForml.ButtonlClick(Sender: TObject);
var: string;// Список команд: integer;// Індекс, номер елемента масиву
//формування списку для відображення у формі
for i:=l to NT do st:=st + IntToStr (i) +
+ team [i] + # 13;// Виведення списку Label1.Caption:=st;
end; end.
3. Розробка форми додатка
.1 Опис компонентів програми та їх властивості
