Запись в файл

Все приказы отдавайте устно. Не оставляйте записей и

документов, которые могут обернуться против вас.

Из законов Мэрфи

Сохранение результатов работы программы в текстовый файл делается в Delphi гораздо проще, чем в обычном Pascal. Можно обойтись без использования процедур Assign, ReWrite, Writeln, Close, хотя они по-прежнему существуют. Чтобы наша программа выглядела прилично, надо применить стандартный диалог сохранения файла – такой же, как в самом Delphi, в Word'е и пр. На закладке Dialogs найдите компонент SaveDialog () и поместите в любое место его на форму. Этот компонент – невизуальный: при запуске программы на форме его не будет. Он появится только при явном вызове диалога сохранения файла из программы. Соответственно на форме должна появиться кнопка "Сохранить".

Зададим свойства нашего диалога. Во-первых, в свойстве Title надо написать заголовок окна диалога, например, "Введите имя файла для сохранения результатов". Во-вторых, в свойство DefaultExt записывается расширение, автоматически присоединяемое к введенному пользователем имени файла. Очевидно, оно должно быть txt, ведь мы сохраняем текстовый файл. Свойство Filter позволяет выбирать отображаемые в диалоге файлы по маске. Например, можно задать маски "Текстовые файлы (*.txt)" и "Все файлы (*.*)". Для этого окно редактирования фильтра нужно заполнить так, как показано на Рис. 6. Текст в левой колонке – подсказка для пользователя, в правой – собственно маска файла.

Диалог имеет свойство Options, "раскрывающееся" в длинный список параметров. Из них нам нужны следующие (их надо установить в True):

foPathMustExist – введенный путь к файлу доложен существовать;

Рис. 6 – Окно редактирования фильтров файлового диалога.

foNoChangeDir – смена директории в файловом диалоге не будет приводить к смене текущей директории всей программы.

Остается написать очень простую процедуру сохранения результатов, вызывающуюся при щелчке по кнопке "Сохранить":

procedure TForm1.Button2Click(Sender: TObject);

Begin

WITH SaveDialog1 DO

IF Execute THEN

Memo1.Lines.SaveToFile(filename)

end;

Оператор WITH "выносит за скобки" название компонента SaveDialog1, чтобы не писать одно и то же несколько раз. Без оператора WITH тот же фрагмент программы выглядел бы так:

Begin

IF SaveDialog1.Execute THEN

Memo1.Lines.SaveToFile(SaveDialog1.filename)

end;

Здесь Execute – метод объекта SaveDialog, вызывающий отображение диалога на экране. Этот метод возвращает логическое значение в зависимости от того, ввел пользователь правильное имя файла или закрыл диалог, нажав Esc. Если имя было введено, то выполняется метод сохранения в файл SaveToFile, предусмотренный у свойства Lines компонента Memo. На вход метода подается имя файла, а оно хранится в свойстве FileName диалога SaveDialog.