Міністерство освіти України Національний університет «Львівська політехніка» Кафедра автоматизованих систем управління
Лабораторна робота №2 з курсу «Об'єктно-орієнтоване програмування» Компоненти Delphi. Архітектура проекту в середовищі програмування DELPHI Мета роботи: ознайомитись з компонентами Delphi, їх властивостями, методами та подіями, розглянути особливості побудови прикладних програм із використанням компонент Delphi; вивчити побудову проекту в середовищі програмування Delphi, призначення та зміст файлів проекту. Порядок виконання роботи: Створити проект для виконання індивідуального завдання. Оформити звіт для захисту лабораторної роботи за зразком назва роботи мета роботи зміст індивідуального завдання тексти головного файлу проекту, програмних модулів та файлів форм аналіз отриманих результатів та висновки Завдання Використовуючи компоненти Memo та OpenDialog створити програму для перегляду та редагування текстових файлів (з можливостями відкриття та збереження файлів на диску). Додати спадне меню з розширеннями при відкритті файлів. Текст програми: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; Label1: TLabel; Memo1: TMemo; procedure Button3Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button3Click(Sender: TObject); begin close; end; procedure TForm1.Button1Click(Sender: TObject); var filename:string; begin OpenDialog1.Title := 'Please choose your file'; if OpenDialog1.Execute then begin filename := OpenDialog1.FileName; Memo1.Lines.LoadFromFile(filename); Label1.Caption:=extractfilename(opendialog1.filename); end; end; procedure TForm1.Button2Click(Sender: TObject); var filename:string; begin if SaveDialog1.Execute then begin filename := SaveDialog1.FileName; Memo1.Lines.SaveToFile(filename); end; end; procedure TForm1.FormCreate(Sender: TObject); begin Memo1.Lines.Clear; end; end. Результати
Рис.1 Головне вікно програми Висновок: на лабораторній роботі я ознайомився з компонентами Delphi, їх властивостями, методами та подіями, розглянув особливості побудови прикладних програм із використанням компонент Delphi; вивчив побудову проекту в середовищі програмування Delphi, призначення та зміст файлів проекту.