Будівництво дерев'яних будинків ціни, зруби недорого ціни на зруби будинків skazka-dom.ru.
У деяких випадках для введення масиву можна використовувати компонент Memo. Компонент Memo дозволяє вводити текст, що складається з досить великої кількості рядків, тому його зручно використовувати для введення символьного масиву. Компонент Memo додається у форму звичайним чином. Значок компонента знаходиться на вкладці Standard (рис. 5.3).
У табл. 5.3 перераховані деякі властивості компоненту Memo.
Таблиця 5.3. Властивості компонента Memo
Ознака успадкування властивостей шрифту батьківської форми
При використанні компонента Memo для введення масиву значення кожного елемента масиву слід вводити в окремому рядку і після введення кожного елемента масиву натискати клавішу
Отримати доступ до об'єктів в полі Memo рядку тексту можна за допомогою властивості Lines, вказавши в квадратних дужках номер потрібного рядка (рядка нумеруються з 0).
Наступна програма, текст якої наведено в лістингу 5.5, демонструє використання компонента Memo для введення символьного масиву.
Основний цикл процедури введення символьного масиву з компоненту Memo може виглядати так:
Lines - властивість компонента Memo, що представляє собою масив, кожен елемент якого містить один рядок знаходиться в полі Memo тексту.
Форма програми приведена на рис. 5.4. Крім поля Memo вона містить командну кнопку (Buttonl), при натисканні на яку виконується введення значень елементів масиву з поля Memo.
Мал. 5.4. Діалогове вікно додатку Введення масиву
Лістинг 5.5. Введення масиву рядків з компонента Memo unit fr_memo_; interface
procedure ButtonlClick (Sender: TObject); private
var Forml: TForml; implementation
procedure TForml.ButtonlClick (Sender: TObject); const
SIZE = 5; // розмір масиву
for i: = 1 to n do a [i]: = Forml.Memol.Lines [i-1]; // рядка Memo пронумеровані з нуля
Основну роботу виконує процедура TForml.Buttoniciick, яка спочатку перевіряє, чи є в поле Memol текст. Якщо текст є (в цьому випадку значення властивості Lines.Count більше нуля), то процедура порівнює кількість введених рядків і розмір масиву. Якщо ця кількість перевищує розмір масиву, то програма змінює значення п, тим самим готує введення тільки перших size рядків.
На рис. 5.5 приведений вид діалогового вікна додатку Введення масиву. Після клацання командної кнопки Введення з'являється вікно (рис. 5.6), яке містить значення елементів масиву, отримані з Memo-поля.
Мал. 5.5. Вікно додатку Введення масиву
Мал. 5.6. Масив, введений з Memo-поля