Delphi. Страница Dialogs. Васильев В.В - 7 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

7
сти текст и проверить работу команды Файл⏐Выход
21. Сохраните результаты работы
File⏐Save
В примере 2 будут созданы обработчики выбора команд меню Файл.
План примера 2
1. Создание нового файла.
2-4. Открытие существующего файла. Автофильтрация файлов.
5-7. Сохранение файла. Автофильтрация файлов.
8-9. Подготовка к распечатке макета страницы.
10-12. Печать документа.
13-14. Запуск программы на исполнение. Сохранение результатов работы.
Пример работы 2: Подсказка
1. Напишите процедуру обработ-
ки выбора
команды
Файл⏐Создать. Содержимое
редактора очищается. Новому
файлу присваивается имя Бе-
зымянный.txt. Имя файла вы-
водится в заголовок формы.
procedure TMainform.N2Click(…);
begin
Memo1.Lines.Clear;
file_name:='Безымянный.txt';
caption:=file_name+' –
Текстовый редактор';
end;
2. Поместите на форму компонент OpenDialog
Закладка Dialogs
3. Установите автофильтрацию файлов при открытии
Свойство Filter
4. Создайте процедуру обработки
пункта меню Файл⏐Открыть …
Метод Execute вызывает диалого-
вое окно, после имени которого он
указан, и возвращает значение true
после выбора ключевой кнопки.
Метод LoadFromFile загружает в
строки компонента Memo текст из
файла OpenDialog1.filename – фай-
ла выбранного в диалоговом окне
Открытие файла. В заголовке фор
-
мы появляется имя открытого фай-
ла
procedure TMainform.N3Click(…);
begin
if OpenDialog1.Execute then
begin
Memo1.Lines.LoadFromFile
(OpenDialog1.filename);
caption:=OpenDialog1.filename +
' - Текстовый редактор';
file_name:=OpenDialog1.filename
;
{обнуление позиции поиска}
index:=0
end;
end;
5. Поместите на форму компонент SaveDialog
Закладка Dialogs
6. Установите автофильтрацию файлов при сохранении
файла
Свойство Filter
Кликните по кнопке с тремя точками
справа от свойства Filter компонента
OpenDialog. Заполните окно масками
фильтрации и их названиями так, как по-
казано на рис. 11.
Рис.11. Окно редактора фильтров

Страницы