Компонент MEMO знаходиться на вкладці Standard головного вікна Delphi, там же, де й компоненти Label, Button та Edit. Створіть новий проект та розмістіть компонент Memo на формі.
Запустіть програму. Компонент Memo являє собою багаторядковий текстовий редактор. Введіть декілька довільних рядків у текстовому полі.
Закрийте програму та поверніться до Delphi. В Інспекторі об’єктів знайдіть властивість Lines компонента Memo. Введіть туди 3 рядки: «Іванов», «Петров», «Сидоров».
Нумерація рядків в об’єкті Memo починається не з 1, а з 0!!!
Тобто, в нашому компоненті зараз 3 рядки: нульовий, перший і другий.
0-й рядок: «Іванов»
1-й рядок: «Петров»
2-й рядок: «Сидоров»
Для того, щоб по номеру рядка отримати власне рядок, використовується команда Memo1.Lines.Strings[x] (результат - string), де х – номер рядка. (тобто, замість х в команді Memo1.Lines.Strings треба вказати номер рядка). Команда Memo1.Lines.Strings[0]видасть 0-й рядок МЕМО, Memo1.Lines.Strings[1]видасть 1-й рядок і т.д.
Розмістіть на формі кнопку Button, підпишіть її «Показати рядок», створіть обробник події-щиглика по ній і напишіть там:
ShowMessage(Memo1.Lines.Strings[0]);
Запустіть програму. Що відбувається при запуску? ________________________________________________________
Напишіть в обробнику 1 замість 0. Запустіть програму. Що відбувається? _____________________________________
Напишіть в обробнику 2 замість 1. Запустіть програму. Що відбувається? _____________________________________
Для того, щоб узнати число рядків Memo, треба використати команду Memo1.Lines.Count (результат - integer)
Розмістіть на формі ще одну кнопку Button, підпишіть її «Число рядків МЕМО», створіть обробник події-щиглика по ній і напишіть там:
ShowMessage(IntToStr(Memo1.Lines.Count));
Перевірте роботу програми.
Для того, щоб додати рядок в Memo, можна використовувати команду Memo1.Lines.Add
Розмістіть на формі ще одну кнопку Button, підпишіть її «Додати рядок», створіть обробник події-щиглика по ній і напишіть там:
Memo1.Lines.Add('Козлов');
Запустіть програму та клацніть по кнопці кілька разів. Що відбувається? ______________________________________
Для того, щоб видалити рядок, треба використовувати команду Memo1.Lines.Delete(х), де х – номер рядка. Команда Memo1.Lines.Delete(0)видалить 0-й рядок МЕМО, Memo1.Lines.Delete(1)видалить 1-й рядок і т.д.
Розмістіть на формі ще кнопку Button, підпишіть її «Видалити 0-й рядок», створіть обробник події-щиглика по ній і напишіть там:
Memo1.Lines.Delete(0);
Запустіть програму та клацніть по кнопці кілька разів. Що відбувається? ______________________________________
Для того, щоб зберегти текст з МЕМО у файл, необхідно використовувати команду Memo1.Lines.SaveToFile, в якій вказати ім’я файлу.
Розмістіть на формі ще кнопку Button, підпишіть її «Зберегти», створіть обробник події-щиглика по ній і напишіть там:
Memo1.Lines.SaveToFile('d:\1.txt');
Запустіть програму. Натисніть кнопку. Перевірте правильність роботи програми.
Для того, щоб завантажити з файлу текст у компонент MEMO, необхідно використовувати команду Memo1.Lines.LoadFromFile, у якій вказати ім’я файлу.
Розмістіть на формі ще кнопку Button, підпишіть її «Завантажити», створіть обробник події-щиглика по ній і напишіть там:
Memo1.Lines.LoadFromFile('d:\1.txt');
Запустіть програму. Повністю видаліть текст з МЕМО. Натисніть кнопку. Перевірте правильність роботи програми.
