Стандартные диалоги при работе с файлами

Чтобы открыть файл для реализации действий с его содержимым, используют компонент TOpenDialog вкладки Dialogs, а для сохранения изменений в файле можно применить другой объект этой же вкладки – TSaveDialog . Названные компоненты относятся к невизуальным, поэтому на форме необходимо предусмотреть соответствующие интерфейсные элементы в виде пунктов меню или кнопок. За отображение диалога отвечает метод Execute, поэтому его следует привязать в обработчике события к интерфейсному эле-менту. На рисунке представ-лены две кнопки управления действиями с файлами. Свой-ство Title обоих диалогов задает текст в заголовке окна (если значение свойства не задано, то отображается “Открыть” или “Сохранить” в соответствии с видом окна диалога). Свойство Filter задает список фильтров имен файлов. Если щелкнуть по многоточию справа от свойства, то появится окно редактора фильтра, пред-ставленное на следующем рисун-ке. В левую колонку заносят име-на фильтров, а в правую – маску имен. С помощью свойства FilterIndex в группе Database задают индекс фильтра по умолчанию (в нашем примере для текстовых файлов – 0). Свойство InitialDir определяет каталог, содержимое которого будет отображаться при появлении окна диалога (по умолчанию – папка “Мои документы”). Имя выбранного пользователем файла представляет свойство FileName. Ниже приведены обработчики кликов по кнопкам Button1 (“Открыть”) и Button2 (“Сохранить”) при работе с текстовыми файлами (см. п. 7.2).

procedure TForm1.Button1Click(Sender: TObject);

begin

if OpenDialog1.Execute then

Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if SaveDialog1.Execute then

Memo1.Lines.SaveToFile(SaveDialog1.FileName);

end;

Аналогичные действия можно осуществить и по отношению к типизированным файлам, пример работы с которыми будет дан в разделе, посвященном созданию приложений в среде TD.