Практична робота: "Табличні величини"

Практична робота

ТАБЛИЧНІ ВЕЛИЧИНИ

Вправа. Обмін даними.

Завдання. У середовищі Lazarus розробіть проект, у якому стовпець з пяти слів, які користувач вводить у багаторядкове поле, буде розміщуватись у рядку таблиці.

1. Відкриваємо середовище Lazarus і створіть новий проект. Збережіть проект. Розмістіть на формі проекту багаторядкове поле, таблицю та кнопку Сформувати для запуску проекту.
2. Задайте властивості об’єктів форми (табл).

3. Створіть процедуру опрацювання події Сформувати. У вікні редактора коду опишіть змінні: і – лічильник номерів рядків у багаторядковому полі та номерів стовпців у таблиці виведення; а – масив значень:

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

  a: array [1..5] of string;

4. Запишіть програму для зчитування даних із текстового поля, формування написів у таблиці та заповнення клітинок таблиці:

begin

     StringGrid1.Cells[0,1] := 'a';

     for i := 0 to 4 do

         begin

           a[i+1] :=Memo1.Lines[i]; //Введення елемента масиву

           StringGrid1.Cells[i+1,0] := IntTostr(i+1);

                                                        //Створення заголовка  першого рядка таблиці

           StringGrid1.Cells[i+1,1] := a[i+1]; // Виведення елемента масиву в клітинку таблиці

           Memo1.Lines[i]:=''; //Очищення текстового поля

         end;

end;  

5. Збережіть та запустити проект на виконання.