1. Поместить на форму кнопки Bevel1(закладка Additional Палитры компонентов; для оформления), Button1, Button2, Button3, Button4, Memo1, OpenDialog1, SaveDialog1(закладка Dialogs).Пример формы приведен на рис.П4.1. Установить свойства компонентам:
Bevel1: свойство Align значение alTop.
OpenDialog :свойство DefaultExt значение TXT;
свойство Options.ofHideReadOnly значение True;
свойство Options.ofFileMustExist значение True;
свойство Options.ofNoReadReturn значение True.
Свойство Title значение Открытие текстового файла.
Дважды щелкнуть на свойстве Filter.Заполните две строки в колонке Filter Name названиями фильтров “Текстовые файлы” и “Все файлы”, в колонке Filter введите соответствующие фильтры: *.TXT и *.*.
2. Поместить на форму компонент SaveDialog и установите его свойства следующим образом:
свойство DefaultExt значение TXT;
свойство Options.ofHideReadOnly значение True;
свойство Options.ofOverwritePrompt значение True;
свойство Options.ofNoReadOnlyReturn значение True.
Свойство Title значение Сохранение текстового файла.
Введите тот же набор фильтров, что и для диалога открытия файла.
3. Создайте обработчик события OnClicke для кнопки Button3 “Выход”, содержащий одну команду Close;
4. Для кнопки Button4 “Открыть…” вставить фрагмент кода (см. программу).
