Рекомендуемый вид диалогового окна приведен на рис. 1.52.

Рис. 1.52. Форма программы Просмотр

implementation
{$R *.dfm)
// щелчок на кнопке Открыть
procedure TForml.ButtonlClick(Sender: TObject);
var
f: TextFiie; // файл
fName: String[80]; // имя файла
buf: String[80]; // буфер для чтения строк
begin
if not OpenDialogl.Execute
then ( пользователь закрыл диалог
щелчком на кнопке Отмена }
exit;
// пользователь выбрал файл
fName := OpenDialogl.FileName;
Forml.Capt ion := fName;
AssignFile(f, fName);
try
Reset(f); // открыть для чтения
except
on EInOutError do
begin
ShowMessage('Ошибка доступа к файлу '+
fName);
exit;
end;
end;
// чтение из файла
while not EOF(f) do
begin
readln(f, buf) ; // прочитать строку из файла
Memol.Lines.Add(buf); // добавить строку в поле Memol
end;
CloseFile (f) ; // закрыть файл
end;
procedure TForml.FormCreate(Sender: TObject);
begin
// определим фильтр
OpenDialogl.Filter := 'Текст I *.txt';
end;
end.