Использование циклов в Object Pascal. Семенов Н.М. - 7 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

7
10: Reset(ATextFile);
11: while not Eof(ATextFile) do begin
12: Readln(ATextFile,TextLine);
13: ListBox1.Items.Add(TextLine);
14: end;
15: System.Close(ATextFile);
16: end;
17: end;
___________________________________________________________________________
В листинге 1 приведён текст обработчика событий OnClick, вызываемого при
выборе команды Open в меню File. В этом обработчике событий заключено основное
содержимое программы просмотра файлов.
Сначала в строке 6 выполняется метод OpenDialog1.Execute. Здесь OpenDialog1 -
компонент, который Вы добавили в форму в Дизайнере форм, и который содержит в
себе стандартное диалоговое окно Windows Open File. Работа этого компонента
позволяет пользователю выбирать файл для просмотра. Имя выбранного файла, если
такой есть, передаётся через свойство FileName компонента OpenDialog1.
После того, как метод OpenDialog1.Execute выполнен, может случиться одна из
двух вещей: или пользователь выберет файл и щёлкнет на кнопке ОК, либо он щёлкнет
на кнопке Cancel в диалоговом окне Open File.
Оператор if в строке 6 проверяет, какое событие из этих двух произошло. Если
метод OpenDialog1.Execute вернул значение False, то есть если была нажата кнопка
Cancel, программа не делает ничего. Управление просто передаётся на строку 17 с
командой end, которая завершает работу обработчика событий OnClick.
Если OpenDialog1.Execute в строке 6 вернул значение True, будут выполняться
команды внутри блока begin - end в строках с 6 по 16.
В строке 7 очищается содержимое окна списка. Изначально ни один файл в окно
не загружен, так что при открытии первого файла оператор в строке 7 в
действительности ничего не делает, но впоследствии, когда пользователь загрузит
следующий файл, это окно должно быть предварительно очищено. Оператор
ListBox1.Clear
именно это и делает.
Обычно в приложениях Windows принято показывать имя открытого в
настоящее время файла. Команда в строке 8 добавляет надпись, содержащую имя
выбранного файла. Имя файла берётся прямо из свойства FileName компонента
OpenDialog1 и добавляется к надписи ‘File Browser: ’ .
Строки с 9 по 15 содержат операторы, в которых Вы должны сразу узнать
стандартный алгоритм чтения текстового файла. Команды Assign в строке 9 и Reset в
строке 10 открывают внешний файл, заданный свойством FileName компонента
OpenDialog1, связывая его с файловой переменной ATextFile.
Переменная ATextFile определена в строке 3. Обратите внимание на
особенность этого определения. Вместо обычного описания
ATextFile: Text;
к имени типа добавлен префикс System. Почему? Он включен сюда потому, что форма
уже имеет свойство с названием Text. Поскольку обработчик OnClick является методом
этой формы, возникает конфликт между именем этого свойства и объявленным ранее
именем Text. Для разрешения этого конфликта имён Вы должны пояснить, что Вы
имеете в виду, указав квалификатор System, то есть, написав
System.Text;

Страницы