Диалоги – это специальные формы, которые предназначены для обеспечения диалога пользователя с программой. Такие формы предоставляют возможность двухсторонней передачи информации, передача информации от пользователя программе. Диалоги открываются только на время передачи информации в модальном режиме.

Задача 1. Написать программу, которая открывает указанные пользователем текстовые файлы (*.txt). Выбор файлов должен производиться с помощью стандартных диалоговых окон. Посмотреть исходник..

Выполнение: Разместить на форме компоненты: GroupBox, Memo, OpenDialog, SaveDialog. Компоненты OpenDialog и SaveDialog находятся на закладке Dialogs. На объекте GroupBox1 разместить три компонента Button (см. рисунок).

Для работы с текстовыми  файлами нужно настроить компоненты OpenDialog1 и SaveDialog1. У каждого из них меняем свойство Filter. Выберите кнопку редактирования этого свойства и в открывшемся окне напишите: Filter Name – "Текстовые файлы”, Filter – "*.txt”. Нажмите «Ок» для сохранения фильтра.

Компонент Memo1 представляет собой многострочную текстовую область. Строки хранятся в свойстве Lines. Тип свойства Lines: TStrings. Т.е. для работы со строками в Memo1.Lines нужно использовать методы типа TStrings. Для начала уберем весь текст из Memo1. Для этого выбираем свойство Lines и нажимаем на кнопку редактирования. В появившемся окне диалога убираем весь текст.

Для того чтобы показать на экране диалоговое окно (OpenDialog) предусмотрен метод Execute. Этот метод возвращает TRUE, если файл пользователем выбран и нажата кнопка "Ok”. Т.е. для открытия файла и загрузки его в Memo1 пишем обработку:

Procedure TForm1.Button1Click(Sender: TObject);

begin

    if OpenDialog1.Execute then // Если диалог отработал

        Memo1.Lines.LoadFromFile(OpenDialog1.FileName); // Загружаем

end;

            Для сохранения изменений в файле используем диалог SaveDialog1.

Procedure TForm1.Button2Click(Sender: TObject);

begin

    if SaveDialog1.Execute then // Если диалог отработал

        Memo1.Lines.SaveToFile(SaveDialog1.FileName); //Сохраняем

end;

Последняя кнопка должна просто очищать текстовую область. Для этого применяем метод Clear. 

procedure TForm1.Button3Click(Sender: TObject);

begin

    Memo1.Lines.Clear;

end;