Компонент TOpenDialog и TSaveDialog

ОРГАНИЗАЦИЯ СТАНДАРТНЫХ ДИАЛОГОВ

Windows поддерживает диалог с помощью типовых диалоговых окон (выбор файла, шрифта, цвета и т.д.). В Delphi реализованы классы и объекты, которые позволяют создавать и использовать такие окна. Работа со стандартными диалоговыми окнами осуществляется в следующей последовательности:

1) необходимо разместить на форме соответствующую диалоговую компоненту и настроить ее свойства;

2) вызов в обработчике события стандартного диалога осуществляется с помощью метода Execute. Этот метод представляет собой функцию, которая отображает на экране диалоговое окно и в конце диалога возвращает результат true или false.

3) результаты выполнения диалога используются в дальнейшем в программе с помощью свойств диалогового окна.

TOpenDialog

И TSaveDialog

Компоненты TOpenDialog и TSaveDialog предназначены для организации стандартных диалоговых окон.

Свойства:

FileName: String;

- позволяет на входе в диалоговое окно задать маршрут поиска. При выходе в свойстве содержится имя выбранного файла;

InitialDir: String;

- позволяет установить начальный каталог;

Filter: String

- позволяет установить фильтр файлов, показываемых в диалоговом окне. Представляет собой любое количество пар последовательностей символов, разделенных вертикальными линиями. В каждой паре первая часть – это текст - названии фильтра, вторая часть – сам фильтр. Например:

Filter:= ’Текстовые файлы (*.txt, *.doc)|*.txt, *.doc’;

Пример 1. Вывести содержимое текстового файла в компонент TMemo.

procedure TForm1.Button1Click(Sender: TObject);

var

S: String;

F: TextFile;

begin

//Настройка фильтра

OpenDialog1.Filter:= 'Текстовые файлы|*.txt,*.doc';

//Настройка папки

OpenDialog1.InitialDir:= 'D:\DEMO Delphi Examples';

//Выполнение диалога

if OpenDialog1.Execute then

begin

AssignFile(F, OpenDialog1.FileName);

Reset(F);

Memo1.Lines.Clear;

While not eof(F) do

begin

Readln(F, S);

Memo1.Lines.Add(s);

end;

CloseFile(F);

end;

end;

Дата добавления: 2014-01-07