Просмотр текстовых файлов

Постановка задачи. Создайте простую программу для просмотра содержимого текстового файла, как показано на рис. 46. Данный проект демонстрирует работу диалога открытия файлов с применением фильтра.

Рис. 46. Программа «Просмотр текстовых файлов»

Реализация. На пустую форму поместите компоненты TOpenDialog, TButton и редактор TMemo, в котором будем просматривать текстовой файл. При работе программы щелчок по кнопке будет сигналом о необходимости загрузить в редактор новый файл.

Свойство FileName содержит маршрут поиска и имя выбранного файла при успешном завершении диалога. В случае неуспеха, чтобы избежать краха программы, можно проверить существование файла глобальной функцией FileExists.

С помощью свойста Filter можно произвести отбор файлов для показа. При программном вводе фильтры задаются одной длинной строкой, в которой символ « | » служит для разделения фильтров друг от друга, а также для разделения описания фильтруемых файлов от соответствующей маски выбора. Например, оператор

OpenDialog1.Filter := ‘Текстовые файлы | *.txt |'+' Файлы Паскаля | *.pas ’;

задает две маски – для отбора файлов с расширениями pas и txt.

Ниже приведен обработчик события OnClick кнопки Button1:

procedure TForm1.Button1Click(Sender: TObject);

var s : string;

f : TextFile;

begin

// Настраиваем диалог на просмотр текстовых файлов

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

'Файлы Паскаля|*.pas';

// Выполняем диалог и анализируем его результат

if OpenDialog1.Execute and FileExists(OpenDialog1.FileName) 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;

Задание. С помощью диалога TOpenPictureDialog создайте проект для просмотра графических файлов с расширением bmp. Включите панель для предварительного просмотра выбираемого файла.