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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

8
Эта деталь кажется незначительной, но если Вы этого не сделаете, транслятор
выдаст Вам своего рода подсказку, в которой будет выражено недовольство по поводу
конфликта имён.
Однако сообщение транслятора “Error in type” не такое информативное, как Вам
хотелось бы. Следовательно, Вы всегда должны помнить о возможности конфликта при
использовании стандартного файлового типа Text. При всяком использовании имени
Text для чего - нибудь ещё (а это очень популярное имя), возникает угроза конфликта.
Просто не забывайте всегда использовать квалификатор System перед указанием типа
Text при описании текстового файла.
Эти же правила применимы к оператору Close в строке 15. Заметим, что Вы уже
ввели оператор Close в методе OnClick для команды меню Exit, где под Close
подразумевается соответствующий метод формы.
В этот раз Close должен относиться к файлу, а не к форме, и очень важно
использовать в этом случае префикс System. В противном случае транслятор будет
настаивать на удалении параметра, стоящего в вызове Close. Если Вы просто поставите
Close, транслятор обратится к методу TForm.Close, у которого нет параметров. Если у
Вас есть подозрения, что возможен конфликт имён, используйте в качестве префикса
имя модуля, к которому относится вызывающее сомнения имя. Все встроенные имена
расположены в модуле с именем System. Существует много различных модулей:
SysUtils, Classes, Forms и другие. Вы можете использовать их в своих программах,
ставя имя модуля в качестве префикса перед идентификатором из этого модуля.
Файловая переменная, объявленная в строке 3 листинга 1, существует только в
данной конкретной процедуре. Файл открывается, обрабатывается и закрывается
внутри одного короткого метода. Этот подход к работе с файлами является наиболее
предпочтительным в Windows - не держите файлы открытыми в течение длительного
времени, закрывайте их, как только представится такая возможность.
Строки с 11 по 14 содержат цикл while, выполняющий основную работу этой
программы - чтение содержимого выбранного файла.
В начале каждой итерации проверяется условие цикла - достижение конца
файла. Если достигнут конец файла, то работа цикла прекращается. В противном
случае очередная строка файла считывается в переменную TextLine. Переменная
TextLine объявлена в строке 4 программы как переменная типа String.
Строка 13 иллюстрирует динамическое добавление содержимого к окну списка.
Вызвав метод Add свойства Items компонента ListBox, Вы визуально добавили в
Дизайнере форм компонент ListBox1 к своей форме. Теперь Вы можете ссылаться на
свойство Items компонента ListBox1, которое состоит из списка строк, содержащихся в
данный момент в окне списка.
Метод Add ожидает строку в качестве параметра, и TextLine каждый раз
передаёт ему новую строку текста, прочитанную из файла.
1.3 Запуск программы просмотра файлов
Для испытания программы проделайте следующие шаги:
1. Запустите программу WHILE1.
2. В меню File выберите команду Open. Появится стандартное диалоговое окно
Open File... . После того, как Вы выбрали файл и щёлкнули мышью на ОК, файл
загрузится и его содержимое будет показано в текстовом окне.
3. В меню File выберите команду Exit для завершения работы программы.

Страницы