Перш за все, треба задекларувати наш масив (чи то пак записати його назву). Назва масиву має такий вигляд:
<Имя_Массива>: Array [<область_определения>] of <Тип_переменных>
Ідентифікатори Array і of постійні, так що їх потрібно вказувати в будь-якому випадку. Ім'я масиву залежить тільки від вашої фантазії. Область визначення має вигляд [X..Y]. де перша величина - найменше значення числа визначених параметрів, друга - найбільша. Зауважте, ця властивість вказується саме в квадратних дужках - власне значення X і Y входять в область визначення масиву. Повторю, що ці значення визначають саме порядкові номери зберігаються в масиві значень і призначені для їх читання ( «витягування» з масиву) за допомогою вказівки порядкового номера. X і Y можуть бути тільки простими числами. Так само вони можуть бути частинами будь-якого впорядкованого цілого: наприклад, можна вказати [ 'а' .. 'я']. і масив буде складатися з тридцяти трьох значень (по числу букв алфавіту).
Далі після ідентифікатора of вказується тип змінних, в якому зберігаються дані в масиві. Якщо це Boolean, то всякий параметр може мати значення тільки True або False. Якщо Integer - то цей же параметр є простим числом, і т.д.
Зараз ми за всіма правилами продекларіруем який-небудь масив:
EditArray: Array [1..5] ofString
Досвідченим оком можна прочитати тут наступне: є масив з ім'ям EditArray, в якому зберігається п'ять різних значень типу String (текст). Здається, все правильно :). Але цей масив порожній: в ньому немає ще ніяких даних. Зараз ми використовуємо його, щоб запам'ятати строкову інформацію, що міститься в TEdit'ах і, коли потрібно, дістати її.
EditArray: Array [1..5] of String;
// записуємо інформацію в масив
procedure TForm1.GetBtnClick (Sender: TObject);
// перебираємо всі компоненти
for i: = 0 to ComponentCount-1 do
if Components [i] is TEdit then
// читаємо інформацію з масиву
procedure TForm1.SetBtnClick (Sender: TObject);
for i: = 0 to ComponentCount-1 do
if Components [i] is TEdit then
Тепер введіть в Edit'и який-небудь текст і натисніть GetBtn. Зітріть текст і натисніть ResultBtn.
Ага! Ось ми і попрацювали з декларованим масивом. Але треба мати на увазі, що є і констатувала масиви з самого початку записаними значеннями, які не можна змінити. Такі масиви прописуються в розділі const. Вони корисні, коли потрібно виконати безліч низькорівневих операцій.
procedure TForm1.Button1Click (Sender: TObject);
RusSymbols: Array [1..10] of ShortString = ( 'а', 'з', 'про', 'р', 'х', 'А', 'С', 'О', 'Р', ' Х ');
EngSymbols: Array [1..10] of ShortString = ( 'a', 'c', 'o', 'p', 'x', 'A', 'C', 'O', 'P', ' X ');
i, position: integer;
// Масив складається з десяти символів,