Прочитайте теоретичні відомості про команду InputBox та виконайте завдання.
Досі ми вводили дані з клавіатури, використовуючи текстові поля Edit. Реалізувати ввід рядків з клавіатури можна й іншим способом – за допомогою команди InputBox. Якщо команда ShowMessage виводить дані на екран, то команда InputBox призначена для вводу даних.
Створіть форму, на якій розмістіть лише одну кнопку (Button).
Створіть обробник події-щиглика по кнопці Button1. В обробнику напишіть наступне:
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:=InputBox('Введите заголовок окна','Заголовок окна:','byka');
Form1.Caption:=s;
end;
Запустіть програму. При щиглику по кнопці відбувається наступне: з’являється вікно, в якому користувач може ввести довільний рядок. Це вікно виводиться командою InputBox:
Другий параметр Напис у вікні
Перший
параметр
Заголовок вікна
Третій
параметр
Дефолт-значення
Дефолт-значення, або значення за умовчанням – це таке значення рядка, яке буде у випадку, коли користувач нічого не введе, а просто натисне ОК. Якщо третій параметр – дефолт-значення – не порожній, тобто не дорівнює '' , то значення за умовчанням з’являється в рядку вводу вікна, як показано на малюнку.
Зазвичай другий та третій параметри команди встановлюються порожніми. Наприклад, команда
InputBox('Введите заголовок окна','','');
виведе вікно, що показано на мал. нижче:
Завдання. Дано зображення вікон, які виводяться командою InputBox. Напроти кожного зображення напишіть команду, яка це вікно виводить.
-
InputBox( ____________________, ____________________,
___________________ )
InputBox( ____________________, ____________________,
___________________ )
InputBox( ____________________, ____________________,
___________________ )
InputBox( ____________________, ____________________,
___________________ )
InputBox( ____________________, ____________________,
___________________ )
InputBox( ____________________, ____________________,
___________________ )
InputBox( ____________________, ____________________,
___________________ )
InputBox( ____________________, ____________________,
___________________ )
Прочитайте теоретичні відомості про об’єкт memo та виконайте завдання.
Об’єкт 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');
Запустіть програму. Повністю видаліть текст з МЕМО. Натисніть кнопку. Перевірте правильність роботи програми.