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

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;