Багаторядкове текстове поле (поле Мемо)

Поле МЕМО (багаторядкове текстове поле)

Для введення та виведення значень елементів табличної величини в середовищі Lazarus можна скористатися багаторядковим текстовим полем (компонент (елемент керування ТМемо на вкладці Standard), яке можна розмістити на формі так само, як й інші компоненти.

ВЛАСТИВОСТІ:

• Name – ім’я об’єкта
• Color – колір фону поля МЕМО
• Font – налаштування форматування тексту
• Enabled – набуває 2 значення та встановлює доступність редагування вмісту елемента користувачем.
• Visible - демонстрація
• Height – висота об’єкта
• Top – розміщення по вертикалі
• Left – розміщення по горизонталі
• ScrollBars (англ. scroll – прокручування, bars – прямокутні смуги) – значення цієї властивості визначає наявність чи відсутність на цьому компоненті смуг прокручування (горизонтальної – ssHorizontal, вертикальної – ssVertical, обох – ssBoth) для перегляду тексту, який виходить за границі компонента;
• ReadOnly (англ. read – читати, only – тільки) – значення цієї властивості визначає можливість редагування рядків компонента: False – можна редагувати, True – не можна (тільки для читання);
• Lines (англ. lines – лінії, рядки) – значенням цієї властивості є набір значень, розташованих у рядках цього компонента; кожний рядок має номер, нумерація рядків починається з 0;
• Lines.Count (англ. count – підрахунок) – значення цієї властивості дорівнює кількості заповнених даними рядків компонента; зазначимо, що ця властивість відсутня у списку властивостей вікна Object Inspector.
• MaxLength - Максимальна довжина тексту в полі Мето. Значення 0 знімає обмеження довжини
• Lines.Append - (англ. append — додавати),що додає до багаторядкового текстового поля новий рядок і виводить у нього значення параметра, указаного в дужках
• Clear - (англ. clear — очищувати), що очищує всі рядки цього компонента
• Lines.Add()- додавання нового рядка в кінець списку
• Lines.Insert(N, Text) вставка рядка Text перед рядком з індексом N
• Lines.Delete(i) - Вилучення рядка з індексом i

Завдання

Ввести значення елементів табличної величини з 10 чисел, що містяться в рядках багаторядкового текстового поля, піднести ці числа до квадрата і вивести їх в інше багаторядкове текстове поле.

var

Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

var a: array [0..9] of real; i: integer;

begin

for i := 0 to 9 do

a[i] := StrToFloat(Memo1.Lines[i]); {дані з рядків першого багаторядкового текстового поля перевести в числа і присвоїти відповідним елементам табличної величини}

for i := 0 to 9 do

a[i] := a[i] * a[i]; // піднести значення елементів табличної величини до квадрата

Memo2.Clear; // очистити друге багаторядкове текстове поле

for i := 0 to 9 do

Memo2.Lines.Append(FloatToStr(a[i])); // вивести значення елементів табличної величини в рядки другого багаторядкового текстового поля

end;

end.