Автор работы: Пользователь скрыл имя, 11 Декабря 2011 в 16:57, курсовая работа
Данное приложение является актуальным, так как сейчас век компьютеризации и у большинства есть компьютеры. Для разработки данной программы используется визуальная среда разработки программ Delphi. Среда Delphi позволяет достаточно быстро разрабатывать приложения для Windows. Программа, разработанная в данной курсовой работе позволяет более глубоко изучить конструкции языка программирования высокого уровня Delphi.
Введение………………………………………………………………….…….…….…3
1. История создания Delphi…………………………………………………..…….…..5
1.1 . Основные понятия объектно-ориентированного программирования…….…..5
1.2. Интегрированная среда разработки Delphi…………………………..…………9
2. Технические характеристики…………………………………..………………….14
2.1. Cправочные сведения для работы в среде Delphi ………………….…………..14
2.2. Постановка задачи и описание алгоритма ……...………………………...........19
Заключение…………………………………………………………..………………..24
Список использованных источников…………………...……..………..……………26
Глоссарий………………………………
Моя
программа полезна тем, что человек
может пользоваться справочной информацией
не обладая специальной
Область
применения: программа может
Список
использованных источников
Глоссарий
Delphi for .NET | Среда разработки Delphi, а так же язык Delphi (Object Pascal), ориентированные на разработку приложений для .NET. |
BDE (Borland Database Engine) | Системный администратор баз данных. |
DPR | Файл проекта. Содержит он основной код программы, ссылки на все окна (формы) проекта и относящиеся к ним модули. В нем также содержится код инициализации. Имеет одноименное название с проектом. |
Self | Дополнительный параметр, доступный в любом методе класса. Позволяет обратиться к тому объекту, который вызвал данный метод. Поскольку все упоминаемые в методе поля, методы исвойства по умолчанию связываются с тем объектом, который вызвал данный метод, параметр Self явно указывается обычно лишь в операторах with для устранения возможной неоднозначности. |
Деструктор (destructor) | Представляет собый метод класса, обеспечивающий разрушение объектов> этого класса (и, в частности, освобождение занимаемой ими области в динамической памяти). Обычно имеет имя Destroy. Вызов деструктора, как правило, выполняется с помощью вспомогательного метода Free. |
Инспектор объектов (object inspector) | Элемент интегрированной среды Delphi, позволяющий настраивать свойства и события форм и компонентов на этапе проектирования программы. |
Класс (классовый тип, class) | Труктурный тип, состоящий из фиксированного числа элементов — полей, методов и свойств. Описывается с помощью ключевого слова class. |
Компонент (component) | Класс, порожденный от базового компонента — класса TComponent, а также объект этого класса. Почти все компоненты, за исключением тех, которые «встроены» в другие компоненты (например, ToolButton или TabSheet), располагаются в палитре компонентов и могут быть перенесены на форму при проектировании программы. |
Метод (method) | Процедура или функция, включенная в описание класса. Совокупность методов определяет «действия», которые могут выполнять объекты данного класса. |
Модуль (unit) | Текстовый файл с расширением PAS, содержащий фрагмент программного кода. Играет роль «библиотеки», которую можно подключать к файлам проекта и другим модулям. |
Объект (object) |
Переменная классового типа. Перед использованием объекта необходимо его инициализировать с помощью конструктора, а после использования — разрушить с помощью деструктора. |
Приложение
А
Текст
программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Menus;
type
TForm1 = class(TForm)
ListBox1: TListBox;
RichEdit1: TRichEdit;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
PopupMenu1: TPopupMenu;
N5: TMenuItem;
N6: TMenuItem;
SaveDialog1: TSaveDialog;
N7: TMenuItem;
procedure ListBox1DblClick(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure PopupMenu1Popup(Sender: TObject);
procedure N2Click(Sender: TObject);
Приложение А(продолжение)
procedure N7Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ListBox1DblClick(
begin
Richedit1.PlainText :=false;
Richedit1.Lines.LoadFromFile('
end;
procedure TForm1.N4Click(Sender: TObject);
begin
showmessage('Разработал: Морьевский Сергей');
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Приложение
А(продолжение)
RichEdit1.SelectAll;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
RichEdit1.CopyToClipboard;
end;
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
if RichEdit1.Text ='' then begin
N5.Enabled:=false;
N6.Enabled:=false;
end; 10
if RichEdit1.Text <>'' then begin
N5.Enabled:=true;
N6.Enabled:=true;
end;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
SaveDialog1.FileName :='Компонент '+ListBox1.Items [ListBox1.itemindex];
if Savedialog1.Execute then begin RichEdit1.PlainText :=false;
Приложение
А(продолжение)
RichEdit1.Lines.SaveToFile(
end;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
if RichEdit1.Text ='' then n7.Enabled :=false else n7.Enabled :=true;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.Items.LoadFromFile(
end;
end.11
Прилажение Б
Рисунок
3 - Вид окна формы рабочего проекта
Рисунок 4 - Вид окна разработанной справочной системы