Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2024
Тип роботи:
Звіт
Предмет:
Об’єктно-орієнтоване програмування
Група:
КН-30
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
Національний університет «Львівська політехніка»
Кафедра АСУ
Звіт
до лабораторної роботи №2
з курсу “Об'єктно орієнтоване програмування”
Варіант 8
Бунь І.П.
Тема : Архітектура проекту в середовищі програмування DELPHI
Мета роботи: ознайомитись з компонентами Delphi, їх властивостями, методами та подіями, розглянути особливості побудови прикладних програм із використанням компонент Delphi; вивчити побудову проекту в середовищі програмування Delphi, призначення та зміст файлів проекту.
Порядок виконання роботи:
Створити проект для виконання індивідуального завдання.
Оформити звіт для захисту лабораторної роботи за зразком
назва роботи
мета роботи
зміст індивідуального завдання
тексти головного файлу проекту, програмних модулів та файлів форм
аналіз отриманих результатів та висновки
Завдання
А. Використовуючи компоненти Memo та OpenDialog створити програму для перегляду та редагування текстових файлів (з можливостями відкриття та збереження файлів на диску).
B. Передбачити можливість тільки перегляду файлів.
Тексти програм:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, Menus, StdCtrls, ExtCtrls;
type
TMainForm = class(TForm)
Memo: TMemo;
MainMenu: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
StatusBar: TStatusBar;
OpenDialog: TOpenDialog;
SaveDialog: TSaveDialog;
procedure TimerTimer(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure MemoKeyPress(Sender: TObject; var Key: Char);
procedure N4Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
TimerNum:integer;
DocChange:boolean;
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
procedure TMainForm.TimerTimer(Sender: TObject);
begin
inc(TimerNum);
StatusBar.Panels.Items[1].Text:='Секундомір: '+inttostr(TimerNum);
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
DocChange:=false;
end;
procedure TMainForm.MemoKeyPress(Sender: TObject; var Key: Char);
begin
DocChange:=true;
end;
procedure TMainForm.N4Click(Sender: TObject);
begin
AppLication.MessageBox('Зроблено Федорчаком Андрієм. Спеціально для кафедри АСУ','Про програму',MB_OK);
end;
procedure TMainForm.N2Click(Sender: TObject);
begin
if OpenDialog.Execute=true then
begin
Memo.Lines.LoadFromFile(OpenDialog.FileName);
StatusBar.Panels.Items[0].Text:=OpenDialog.FileName;
end;
end;
procedure TMainForm.N3Click(Sender: TObject);
begin
Close;
end;
end.
Скріншоти роботи програми:
Висновок: На цій лабораторній роботі я практикувався у роботі з основними компонентами делфі, їх властивостями та подіями зв’язаними з ними.
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора