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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

9
2 Развитие программы просмотра файлов
Добавим в разрабатываемую программу WHILE1 возможность записи текстовых
файлов с произвольным именем. Будет использован цикл for для работы с содержимым
окна списка. Окно содержит строки текста, предназначенные для записи в файл.
2.1 Улучшение внешнего вида программы
Для улучшения внешнего вида программы просмотра файлов выполните
следующие операции:
1. Откройте созданный ранее файл проекта WHILE1.DPR.
2. Добавьте к форме компонент SaveDialog страницы Dialogs палитры
компонентов Delphi.
3. Измените свойство Filter вновь добавленного диалогового окна SaveDialog1на
такое же, как у OpenDialog1. Щёлкните на OpenDialog1 для выбора его, затем нажмите
клавишу Shift и щёлкните на компоненте SaveDialog1. После этого щёлкните на
свойстве Filter в инспекторе объектов и нажмите Enter. Теперь оба диалоговых окна
должны иметь одинаковые свойства Filter.
4. Добавьте команду Save As... в меню File. Для этого сначала дважды щёлкните
на компоненте MainMenu1 в Дизайнере формы для вызова редактора меню. В
редакторе меню щелкните на разделительной линии между командами Open и Exit.
Нажмите клавишу Insert. Введите Save &As... в свойство Caption нового пункта меню.
Нажмите Enter. Закройте редактор меню. Теперь Вы можете проверить, что команда
Save As... появилась в меню File, щёлкнув мышью на модели основного меню в
Дизайнере форм.
5. Находясь в Дизайнере форм, щёлкните на строке Save As... меню File. Система
Delphi создаст заготовку метода обработки событий OnClick и покажет её в окне
редактора кода.
6. Введите метод TFrmWhile1.SaveAs1Click, как показано на листинге 2.
Листинг 2. Обработчик события OnClick для команды меню Save As программы
просмотра файлов While1.
___________________________________________________________________________
1: procedure TFrmWhile1.SaveAs1Click(Sender: TObject);
2: var
3: LineNo:Integer;
4: ATextFile: System.Text;
5: TextLine: String;
6: begin
7: if SaveDialog1.Execute then begin
8: System.Assign(ATextFile,SaveDialog1.FileName);
9: Rewrite(ATextFile);
10: for LineNo :=0 to ListBox1.Items.Count-1 do
11: begin
12: TextLine:=ListBox1.Items[LineNo];
13: WriteLn(ATextFile,TextLine);
14: end;
15: System.Close(ATextFile);

Страницы