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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

10
16: end;
17: end;
___________________________________________________________________________
В листинге 2 приведён текст обработчика событий OnClick, активизируемого
при выборе команды Save As... меню File. Этот метод сходен по структуре с
обработчиком пункта Open меню, разработанного ранее.
Выражение SaveDialog1.Execute в строке 7 открывает стандартное диалоговое
окно Windows Save As... . Если результат равен True, то есть, если пользователь
щёлкнул мышью на кнопке ОК в диалоговом окне, то условие if удовлетворяется и
команды внутри цикла if будут выполнены.
В строках 8 и 9 файл открывается для записи. Если файла с указанным именем
не существует, то оператор Rewrite создаст его. После открытия файла цикл for в
строках с 10 по 14 записывает в него строки текста. Обратите внимание, что
переменная счётчика цикла LineNo меняется от 0 до величины, на единицу меньше, чем
число строк в текстовом окне. Использование стартового значения счётчика 0
необходимо, поскольку нумерация строк в текстовом окне начинается с нуля.
В строке 12
TextLine:=ListBox1.Items[LineNo];
у компонента ListBox1 есть свойство Items, которое является массивом строк. Ранее Вы
добавили эти строки, используя метод Add компонента ListBox1 при загрузке файла.
Вы можете получить доступ к отдельному элементу этого массива, используя
выражение для индекса массива, заключенное в квадратные скобки.
В строке 12 переменной TextLine присваивается значение элемента массива
Items с номером [LineNo].
Цикл в строке 10 совершает ровно столько итераций, сколько требуется для
записи всех строк текстового окна в файл. Выражение
ListBox1.Items.Count
даёт действительное количество строк в текстовом окне и предоставляет конечное
значение для счётчика цикла, что гарантирует окончание работы цикла после
выполнения ListBox1.Items.Count-1 итераций.
После окончания работы цикла вызывается подпрограмма System.Close,
закрывающая файл и гарантирующая физическую запись данных на диск.
2.2 Запуск усовершенствованной программы просмотра файла
После добавления метода SaveAs1Click, приведённого в предыдущем разделе,
сделайте следующее:
1. Запустите программу.
2. Загрузите текстовый файл так, как Вы делали это раньше.
3. В меню File выберите Save As. Внутри появившегося диалогового окна
задайте имя выходного файла, желательно не совпадающее с первоначальным.
На рис.2 показан внешний вид усовершенствованной программы просмотра
файлов.

Страницы