Міністерство освіти України Національний університет «Львівська політехніка» Кафедра автоматизованих систем управління
Лабораторна робота №2 з курсу «Об'єктно-орієнтоване програмування» Компоненти Delphi. Архітектура проекту в середовищі програмування DELPHI Мета роботи: ознайомитись з компонентами Delphi, їх властивостями, методами та подіями, розглянути особливості побудови прикладних програм із використанням компонент Delphi; вивчити побудову проекту в середовищі програмування Delphi, призначення та зміст файлів проекту. Порядок виконання роботи: Створити проект для виконання індивідуального завдання. Оформити звіт для захисту лабораторної роботи за зразком назва роботи мета роботи зміст індивідуального завдання тексти головного файлу проекту, програмних модулів та файлів форм аналіз отриманих результатів та висновки Завдання Використовуючи компоненти Memo та OpenDialog створити програму для перегляду та редагування текстових файлів (з можливостями відкриття та збереження файлів на диску). Додати спадне меню з розширеннями при відкритті файлів. Текст програми: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus; type TForm1 = class(TForm) Memo1: TMemo; MainMenu1: TMainMenu; PopupMenu1: TPopupMenu; N1: TMenuItem; N4: TMenuItem; N2: TMenuItem; N5: TMenuItem; N6: TMenuItem; N3: TMenuItem; N7: TMenuItem; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; procedure N8Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure N5Click(Sender: TObject); procedure N4Click(Sender: TObject); procedure N7Click(Sender: TObject); procedure N6Click(Sender: TObject); private { Private declarations } public { Public declarations } end; type info=record hello:string[10]; end; var Form1: TForm1; F:file of info; r: info; ryd:string[25]; implementation uses Unit6, Unit11, Unit12, Unit13; {$R *.dfm} procedure TForm1.N8Click(Sender: TObject); begin Close end; procedure TForm1.N3Click(Sender: TObject); begin AboutBox.Show end; procedure TForm1.N5Click(Sender: TObject); //var i: integer; begin if OpenDialog1.Execute then begin Memo1.Lines.LoadFromFile(OpenDialog1.FileName); insert(OpenDialog1.FileName,ryd,1); end; end; procedure TForm1.N4Click(Sender: TObject); begin Memo1.Clear end; procedure TForm1.N7Click(Sender: TObject); begin close end; procedure TForm1.N6Click(Sender: TObject); begin if SaveDialog1.Execute then begin if SaveDialog1.FileName=OpenDialog1.FileName then begin OKBottomDlg1.Show end else Memo1.Lines.SaveToFile(SaveDialog1.Filename); end; end; end. unit Unit7; interface uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, ExtCtrls; type TAboutBox1 = class(TForm) Panel1: TPanel; ProgramIcon: TImage; ProductName: TLabel; Version: TLabel; Copyright: TLabel; Comments: TLabel; OKButton: TButton; procedure Panel1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var AboutBox1: TAboutBox1; implementation {$R *.dfm} unit Unit13; interface uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, ExtCtrls, Dialogs; type TOKBottomDlg1 = class(TForm) OKBtn: TButton; CancelBtn: TButton; Bevel1: TBevel; SaveDialog1: TSaveDialog; Label1: TLabel; procedure OKBtnClick(Sender: TObject); procedure CancelBtnClick(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var OKBottomDlg1: TOKBottomDlg1; implementation uses Unit1; {$R *.dfm} procedure TOKBottomDlg1.OKBtnClick(Sender: TObject); begin Form1.Memo1.Lines.SaveToFile(Form1.SaveDialog1.Filename); //Memo1.Lines.SaveToFile(SaveDialog1.Filename); // 'D:\dobrui den.txt' Close end; procedure TOKBottomDlg1.CancelBtnClick(Sender: TObject); begin close end; end. Результати
Рис.1
Рис.2 Вікно вибору файлу Висновок: на лабораторній роботі я ознайомився з компонентами Delphi, їх властивостями, методами та подіями, розглянув особливості побудови прикладних програм із використанням компонент Delphi; вивчив побудову проекту в середовищі програмування Delphi, призначення та зміст файлів проекту.