У роботі розглядаються
- Об'єктно-орієнтоване програмування
- Середовище Delphi
- Візуальне програмування
- Компоненти Delphi
- Обробка подій
- Текстові файли
Звіт до лабораторної роботи №2 з курсу «Об'єктно-орієнтоване програмування»
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Інститут комп’ютерних наук та інформаційних технологій
Факультет:
Факультет комп’ютерних наук
Кафедра:
Кафедра автоматизованих систем управління
Інформація про роботу
Рік:
2015
Тип роботи:
Звіт
Предмет:
Об’єктно-орієнтоване програмування
Група:
КН
Коротко про документ
Про що ця робота
Звіт до лабораторної роботи №2 містить розробку програми текстового редактора в середовищі Delphi. У роботі наведено лістинг програмного коду модулю та висновки щодо використання компонентів.
Зміст і розділи
- Тема
- Мета роботи
- Порядок виконання роботи
- Завдання
- Тексти програм
- Скріншоти роботи програми
- Висновок
Для кого:Студенти технічних спеціальностей вищих навчальних закладів
Викладачі:Не вказано
Ключові поняття
DelphiTMemoOpenDialogSaveDialogTMainFormПодіїКомпонентиФормаМодуль
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
Національний університет «Львівська політехніка»
Кафедра АСУ
Звіт
до лабораторної роботи №2
з курсу “Об'єктно орієнтоване програмування”
Варіант 11
Бунь І.П.
Тема : Архітектура проекту в середовищі програмування 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;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N2: TMenuItem;
StatusBar: TStatusBar;
Timer: TTimer;
OpenDialog: TOpenDialog;
SaveDialog: TSaveDialog;
procedure TimerTimer(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure MemoKeyPress(Sender: TObject; var Key: Char);
procedure N4Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N6Click(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.N3Click(Sender: TObject);
var
Choise:byte;
begin
Choise:=0;
if DocChange then
begin
Choise:=Application.MessageBox('Зберегти зміни?','Збереження...',MB_YESNOCANCEL);
case Choise of
IDYES : begin
if Length(OpenDialog.FileName)>0 then
Memo.Lines.SaveToFile(OpenDialog.FileName)
else
begin
if SaveDialog.Execute() then
begin
Memo.Lines.SaveToFile(SaveDialog.FileName);
end;
end;
end;
end;
end;
if not(Choise=IDCANCEL) then
if OpenDialog.Execute() then
begin
StatusBar.Panels.Items[0].Text:='Файл: '+OpenDialog.FileName;
Memo.Lines.LoadFromFile(OpenDialog.FileName);
end;
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
DocChange:=false;
end;
procedure TMainForm.N5Click(Sender: TObject);
var
Choise:byte;
begin
if not DocChange then
Close
else
begin
Choise:=Application.MessageBox('Зберегти зміни?','Збереження...',MB_YESNOCANCEL);
case Choise of
IDYES : begin
if Length(OpenDialog.FileName)>0 then
begin
Memo.Lines.SaveToFile(OpenDialog.FileName);
Close;
end
else
begin
if SaveDialog.Execute() then
begin
Memo.Lines.SaveToFile(SaveDialog.FileName);
Close;
end;
end;
end;
IDNO : Close;
end;
end;
end;
procedure TMainForm.MemoKeyPress(Sender: TObject; var Key: Char);
begin
DocChange:=true;
end;
procedure TMainForm.N4Click(Sender: TObject);
begin
if Length(OpenDialog.FileName)>0 then
Memo.Lines.SaveToFile(OpenDialog.FileName)
else if SaveDialog.Execute() then
begin
if Pos('.txt',SaveDialog.FileName)=0 then
SaveDialog.FileName:=SaveDialog.FileName+'.txt';
Memo.Lines.SaveToFile(SaveDialog.FileName);
DocChange:=false;
OpenDialog.FileName:=SaveDialog.FileName;
StatusBar.Panels.Items[0].Text:='Файл: '+SaveDialog.FileName;
end;
end;
procedure TMainForm.N2Click(Sender: TObject);
var
Choise:byte;
begin
if not DocChange then
begin
Memo.Lines.Clear;
OpenDialog.FileName:='';
StatusBar.Panels[0].Text:='Файл: ';
end
else
begin
Choise:=Application.MessageBox('Зберегти зміни?','Збереження...',MB_YESNOCANCEL);
case Choise of
IDYES : begin
if Length(OpenDialog.FileName)>0 then
begin
Memo.Lines.SaveToFile(OpenDialog.FileName);
Memo.Lines.Clear;
OpenDialog.FileName:='';
end
else
begin
if SaveDialog.Execute() then
begin
Memo.Lines.SaveToFile(SaveDialog.FileName);
Memo.Lines.Clear;
OpenDialog.FileName:='';
end;
end;
end;
IDNO : begin
Memo.Lines.Clear;
OpenDialog.FileName:='';
end;
end;
StatusBar.Panels.Items[0].Text:='Файл: '+OpenDialog.FileName;
end;
end;
procedure TMainForm.N6Click(Sender: TObject);
begin
end;
end.
Скріншоти роботи програми:
Висновок: На цій лабораторній роботі я практикувався у роботі з основними компонентами делфі, їх властивостями та подіями зв’язаними з ними.
Допоможи студентському архіву
Ми допомогли тобі — допоможи наступному студенту
Оголошення від адміністратора
Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!