 |
|
|
 |
|
| | От Delphi 4 к Delphi 5 |
| Автор: Владимир Скуратов |
Источник: н/д | Язык: русский |
| Файлы Рассмотрим пример создания текстового файла. 1. Запустите Delphi. 2. Сохраните файл модуля под именем ReviewOfFiles_.pas, а файл проекта — под именем ReviewOfFiles.dpr. 3. Поместите на форму компонент OpenDialog со страницы Dialogs. Используя свойство Filter, введите значения, показанные ниже по тексту. Это свойство определяет маски ввода, доступные пользователю для определения того, какие файлы будут появляться в окне списка диалогового окна. Маска может состоять из одного или нескольких файловых фильтров, каждый из которых состоит из двух частей. Вертикальная линия разграничивает их. В первой части записывается осмысленный текст, который указывает тип файла. Вторая часть представляет собой шаблон универсального сопоставления файла (file wildcard). Можно соединить несколько файловых шаблонов вместе, используя символ точки с запятой как разделитель. Значение свойства Filter является строкой, которая может содержать 255 символов. Итак, введите для нашего случая следующие значения: для открытия паскалевских файлов в первой части введите (*.pas,*.dpr), во второй части введите *.pas,*.dpr. Для текстовых файлов в первую часть введите (*.txt), во вторую — *.txt. Для того чтобы открывать все файлы, в первую часть запишите (*.*), во вторую часть — *.*. 4. Поместите на форму компонент ListBox со страницы Standard. Установите свойство Align в значение AlClient, BorderStyle — в значение bsNone. 5. Активизируйте форму и, используя инспектор объекта, найдите свойство ActiveControl. Раскройте его, в предложенном списке выберите ListBox1. 6. Поместите на форму компонент MainMenu со страницы Standard. Произведите двойной щелчок по нему — откроется редактор меню. Определите первый элемент в виде заголовка, для этого введите в свойство Caption имя &File, нажмите клавишу Enter. Введите команды Open и Exit. Назначьте горячие клавиши для команды Open (Ctrl + A), для команды Exit (Ctrl + B). |
| Доступные файлы (отрапортовать об ошибке!): |
|
Просмотреть
• Загрузить
• В портфель! (руководств: 0)
• Обсудить на форуме
|
|
|
|
|
