Реализация средствами языка программирования Delphi программы "Файловый менеджер"

Особенности создания программы "Файловый менеджер" в среде объектно-ориентированного программирования Delphi. Назначение и основные функции программы, формулировка задачи. Описание программы, использованные компоненты, интерфейс и порядок применения.

Рубрика Программирование, компьютеры и кибернетика
Вид контрольная работа
Язык русский
Дата добавления 19.06.2012
Размер файла 1,3 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Размещено на http://www.allbest.ru/

УО "ПОЛОЦКИЙ ТОРГОВО-ТЕХНОЛОГИЧЕСКИЙ КОЛЛДЕЖ" БЕЛКООПСОЮЗА

Контрольная работа

по дисциплине "Основы алгоритмизации и программирования"

Тема: "Реализация средствами языка программирования Delphi программы "Файловый менеджер"

Выполнил:

учащийся II курса

группы П-21

специальности "Программное обеспечение

информационных технологий"

Выполнил: Метелица Анатолий Владимирович

Руководитель: Тальвинская Наталья Викторовна

Полоцк 2012

Содержание

  • 1. Введение
  • 2.2 Назначение и функции программы
  • 2.3 Формулировка задачи
  • 3. Описание программы
  • 3.1 Компонент TMainMenu
  • 3.2Компонент TButton
  • 3.3Компонент TImage
  • 3.4 Компонент ListBox
  • 3.5Компонент TPanel
  • 3.6 Компонент ListView
  • 3.7 Компонент ComboBox
  • 4. Описание применения
  • Заключение
  • Список использованной литературы
  • Приложения

1. Введение

В данной контрольной работе речь пойдет о создании программы “Файловый менеджер”, который и будет являться объектом исследования. Потребуется создать полноценную правильно-функционирующую программу и самостоятельно изучить некоторые процедуры и функции.

Delphi - это среда объектно-ориентированного программирования, основанная на языке Object Pascal. Используется для разработки и поддержки программного обеспечения. В отличии от своего прародителя, языка Pascal, многофункционален и удобен тем, что имеет визуальный редактор приложения, который позволяет создавать внешний облик будущей программы.

Теперь мы знаем, что программирование - есть составление алгоритмов плюс использование языка программирования. Но если изучаемым нами языком является Object Pascal, то что такое Delphi? Ответ таков: Delphi - это RAD, или Rapid Application Development - среда быстрой разработки приложений. Иначе говоря, Delphi включает в себя не только все средства для работы с языком Object Pascal (тем более, что начиная с версии, 2005 в Delphi имеется поддержка других языков программирования, в частности, C#), но и ряд дополнительных средств, призванных максимально ускорить и упростить создание программ. К таковым средствам относятся, прежде всего, визуальный редактор форм, при помощи которого за считанные минуты и без лишних усилий можно создать полноценно выглядящую программу, а так же прочие составные части визуальной составляющей разработки программ.

2. Актуальность задачи, суть выполненной работы

2.1 Постановка задачи

Разработать “Файловой менеджер”, которая включает в себя многие функции работы с файлами. Файловой менеджер рассчитан на различные слои общества для образования. Пользователям можно будет делать разные работы с файлами и т. д

· Файл > Выход

· Справка > О программе > Курсовой проект - Вывод дополнительной информацию о программе и её создателе.

2.2 Назначение и функции программы

Файловый менеджер - компьютерная программа, предоставляющая интерфейс пользователя для работы с файловой системой и файлами. Файловый менеджер позволяет выполнять наиболее частые операции над файлами - создание, открытие/проигрывание/просмотр, редактирование, перемещение, переименование, копирование, удаление, изменение атрибутов и свойств, поиск файлов и назначение прав.

2.3 Формулировка задачи

Реализовать средствами языка программирования Delphi файловую программу на тему "Файловой менеджер".

программирование delphi файловый менеджер

3. Описание программы

3.1 Компонент TMainMenu

TMainMenu - позволяет поместить главное меню в программу. При помещении TMainMenu на форму это выглядит, как просто иконка (Рис.1). Иконки данного типа называют невидимым (не визуальным) компонентом, поскольку они невидимы во время выполнения программы.

Рис.1 Cозданное меню, компонент TMainMenu1

Создание меню включает три шага:

· помещение TMainMenu на форму;

· вызов Menu Designer;

· определение пунктов меню в Menu Designer.

Рис.2 Menu Designer

Этот компонент доступен из модуля MENUS, и находится на странице Палитры компонентов Standard.

Этот компонент представляет главное меню формы и наследует все методы и свойства TMenu. Особенность его в том, что в нем реализован сложный механизм объединения меню. Это необходимо по следующим причинам:

· Если в приложении имеется несколько форм со своими меню, то для упрощения работы целесообразно соединить их в одно и управлять меню из главной формы.

· Объединение меню нужно при работе с интерфейсом MDI и его подокнами.

· Механизм объединения меню используется серверами OLE, запускаемыми по месту нахождения объекта OLE. Загружаясь, сервер дописывает осуществляемые им операции к меню другого приложения.

Для того чтобы реализовать объединение меню, у тех форм, меню которых будут присоединены к главному, необходимо установить в True свойство:

(Pb) property AutoMerge: Boolean;

При этом у главного меню оно должно оставаться равным False, иначе главное меню будет вообще невидимым. Объединение будет происходить автоматически при активизации новых форм или серверов OLE. Кроме автоматического режима, объединение меню можно выполнить при вызове метода:

procedure Merge (Menu: TMainMenu);

3.2Компонент TButton

TButton - Компонент Delphi Button это простая командная кнопка. Командная кнопка Delphi Button используется для реализации в программе команд с помощью обработчика события OnClick этого компонента.

Один и тот же обработчик может обрабатывать события нескольких компонентов TButton (да и не только TButton, но и даже компонентов других типов). Для определения того, событие какого именно компонента нужно обрабатывать, используется встроенная переменная Sender типа TObject, обозначающая объект, вызвавший данное событие.

3.3 Компонент TImage

TImage - отображает графическое изображение на форме. Воспринимает форматы BMP, ICO, WMF. Если картинку подключить во время дизайна программы, то она прикомпилируется к EXE файлу.

Этот компонент доступен из модуля EXTCTRLS, и находится на странице Палитры компонентов Additional.

Этот компонент служит надстройкой над классом TPicture и замыкает всю иерархию графических объектов VCL. Он предназначен для показа на форме изображения: битовой карты (TBitmap), метафайла (TMetafile), значка (TIcon).

3.4 Компонент ListBox

- ListBox отображает список в раскрытом виде и автоматически добавляет в список полосы прокрутки, если все строки не помещаются в окне компонента.

3.5Компонент TPanel

TPanel - Панели Panel используются наиболее широко. С их помощью компонуются различные элементы интерфейса (кнопки, окна редактирования, списки), функционально связанные друг с другом. Такая функциональная связь должна поддерживаться и зрительной связью - объединением соответствующих элементов в рамках одной панели. Панели Panel могут также использоваться для организации инструментальных панелей, полос состояния и т.п., хотя для этих целей имеются и специализированные компоненты, которые будут рассмотрены позднее.

3.6 Компонент ListView

ListView - В заключение коротко рассмотрим компонент ListView. Он позволяет отображать в стиле Windows 95/98 данные в виде списков, таблиц, крупных и мелких пиктограмм. С подобным отображением все вы сталкиваетесь, раскрывая папки Windows.

3.7 Компонент ComboBox

ComboBox - Таким образом, с помощью Delphi ComboBox место на Форме экономится для расмещения других элементов интерфейса программы. А при необходимости раскрытие списка строк можно вообще запретить.

Многие свойства и возможности компонента Delphi ComboBox по работе со строками (объектами Items)

4. Описание применения

Созданный мной проект предлагает пользователю, программу "Файловый менеджер" легкий доступ к любым файлам которых не видно даже на дисках. Данный проект могут использовать как учащиеся так и любой заинтересовавшейся человек. Программа имеет очень простой интерфейс и с ним легко разобраться.

Заключение

В результате выполнения данной курсовой работы мной был разработан Файловый менеджер. Было проведено исследование компонентов программной среды Borland Delphi 7.0, которые использовались при создании программы, использовалось множество процедур и функций.

При создании программы использовались следующие компоненты: TMainMenu, TButton,TImage, ComboBox, ListBox, TPanel,

ListView.

Список использованной литературы

Архангельский А.Я. Программирование в DELPHI. - М.: Бином, 2008.

Бобровский С.В. DELPHI 7. - "Питер", 2008.

Гудман С., Хидетниеми С. Введение в разработку и анализ алгоритмов. - М.: Мир, 1981.

Дейкстра Э. Дисциплина программирования. - М.: Мир, 1978. http://lib.ru/ctotor/dejkstra.

Зиглер К. Методы проектирования программных систем. - М.: Мир, 1985.

Кнут Д. Искусство программирования для ЭВМ. В 3 т., любое издание. http://lib.ru/ctotor/knut, http://pascal. sources.ru/docs/knuth3. htm.

Оскерко В.С. Технологии баз данных. - Мн.: БГЭУ, 2007

http://ru. wikipedia.org/

http://www.chemport.ru/

http://www.samfact.com/

http://pda. privet.ru/

http://win-web.ru/

http://www.nestor. minsk. by/

http://www.ozon.ru/

http://hacker-pro.net/

Приложения

Приложение А

Код программы

unit Main;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

FileCtrl, StdCtrls, ComCtrls, frFilePanelU, ImgList, ExtCtrls, Menus;

type

TfmDarkickCommander = class (TForm)

frFilePanelLeft: TfrFilePanel;

pnTop: TPanel;

FileListBox1: TFileListBox;

ImageList1: TImageList;

splPanelsSplitter: TSplitter;

frFilePanelRight: TfrFilePanel;

mmMenu: TMainMenu;

miFile: TMenuItem;

miHelp: TMenuItem;

miExit: TMenuItem;

pnBottom: TPanel;

cmbxCommand: TComboBox;

lbPath: TLabel;

lbItem: TLabel;

miAbout: TMenuItem;

btEdit: TButton;

btCopy: TButton;

btMove: TButton;

btFolder: TButton;

btDelete: TButton;

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure FormActivate (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure miExitClick (Sender: TObject);

procedure cmbxCommandKeyDown (Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure cmbxCommandEnter (Sender: TObject);

procedure miAboutClick (Sender: TObject);

procedure btEditClick (Sender: TObject);

procedure btCopyClick (Sender: TObject);

procedure btMoveClick (Sender: TObject);

procedure btFolderClick (Sender: TObject);

procedure btDeleteClick (Sender: TObject);

procedure frFilePanelRightbbRefreshClick (Sender: TObject);

procedure frFilePanelRightbtDirRootClick (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmDarkickCommander: TfmDarkickCommander;

implementation

uses FilesExU, About;

Var

FirstRun: Boolean;

{$R *. DFM}

procedure TfmDarkickCommander. FormClose (Sender: TObject; var Action: TCloseAction);

begin

frFilePanelLeft. Done;

frFilePanelRight. Done;

end;

procedure TfmDarkickCommander. FormActivate (Sender: TObject);

begin

If FirstRun Then

Begin

frFilePanelRight. Init (FileListBox1, ImageList1, frFilePanelLeft. Deactivate, lbPath, lbItem);

frFilePanelLeft. Init (FileListBox1, ImageList1, frFilePanelRight. Deactivate, lbPath, lbItem);

FirstRun: =False;

End;

end;

procedure TfmDarkickCommander. FormCreate (Sender: TObject);

begin

FirstRun: =True;

end;

procedure TfmDarkickCommander. miExitClick (Sender: TObject);

begin

Close;

end;

procedure TfmDarkickCommander. cmbxCommandKeyDown (Sender: TObject;

var Key: Word; Shift: TShiftState);

Var

P: Integer;

Command, Params: String;

begin

If Key<>VK_Return Then Exit;

cmbxCommand. Text: =Trim (cmbxCommand. Text);

If ssCtrl In Shift Then

Begin

cmbxCommand. Text: =' '+cmbxCommand. Text+lbItem. Caption+' ';

Exit;

End;

If cmbxCommand. Items. IndexOf (cmbxCommand. Text) <0 Then

cmbxCommand. Items. Add (cmbxCommand. Text);

P: =Pos (' ', cmbxCommand. Text);

If P<=0 Then

Begin

ExecuteOneFile (lbPath. Caption, cmbxCommand. Text, '');

Exit;

End;

Command: =Copy (cmbxCommand. Text, 1, P-1);

Params: =Copy (cmbxCommand. Text, P+1, Length (cmbxCommand. Text) - P);

ExecuteOneFile (lbPath. Caption, Command, Params);

end;

procedure TfmDarkickCommander. cmbxCommandEnter (Sender: TObject);

begin

cmbxCommand. SelectAll;

end;

procedure TfmDarkickCommander. miAboutClick (Sender: TObject);

begin

fmAbout. ShowModal;

end;

procedure TfmDarkickCommander. btEditClick (Sender: TObject);

begin

If frFilePanelLeft. NowActive Then

frFilePanelLeft. EditFile

Else

frFilePanelRight. EditFile;

end;

procedure TfmDarkickCommander. btCopyClick (Sender: TObject);

begin

If frFilePanelLeft. NowActive Then

frFilePanelLeft. TryCopyFile

Else

frFilePanelRight. TryCopyFile;

end;

procedure TfmDarkickCommander. btMoveClick (Sender: TObject);

begin

If frFilePanelLeft. NowActive Then

frFilePanelLeft. TryMoveFile

Else

frFilePanelRight. TryMoveFile;

end;

procedure TfmDarkickCommander. btFolderClick (Sender: TObject);

begin

If frFilePanelLeft. NowActive Then

frFilePanelLeft. CreateFolder

Else

frFilePanelRight. CreateFolder;

end;

procedure TfmDarkickCommander. btDeleteClick (Sender: TObject);

begin

If frFilePanelLeft. NowActive Then

frFilePanelLeft. TryDelete

Else

frFilePanelRight. TryDelete;

end;

procedure TfmDarkickCommander. frFilePanelRightbbRefreshClick (

Sender: TObject);

begin

frFilePanelRight. bbRefreshClick (Sender);

end;

procedure TfmDarkickCommander. frFilePanelRightbtDirRootClick (

Sender: TObject);

begin

frFilePanelRight. btDirRootClick (Sender);

end;

end.

unit About;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Buttons, ExtCtrls, ShellApi;

type

TfmAbout = class (TForm)

bbOk: TBitBtn;

lbTitle: TLabel;

lbVersionInfo: TLabel;

memAbout: TMemo;

procedure bbOkClick (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmAbout: TfmAbout;

implementation

{$R *. DFM}

procedure TfmAbout. bbOkClick (Sender: TObject);

begin

Close;

end;

end.

Приложение Б

Рис 3. Вид программы после запуска

Рис 4. Кратко о создателе

Размещено на Allbest.ru


Подобные документы

  • Предмет объектно-ориентированного программирования и особенности его применения в средах Паскаль, Ада, С++ и Delphi. Интегрированная среда разработки Delphi: общее описание и назначение основных команд меню. Процедуры и функции программы Delphi.

    курсовая работа [40,8 K], добавлен 15.07.2009

  • Особенности разработки приложений для операционной системы с помощью императивного, структурированного, объектно-ориентированного языка программирования Delphi. Формальное начало программы. Выделение конца программного блока. Листинг и описание программы.

    курсовая работа [1,2 M], добавлен 04.08.2014

  • Ознакомление с историей создания и особенностями объектно-ориентированного языка программирования Delphi. Разработка приложения, фиксирующего количество повторений какого-либо слова в тексте, введённом в поле MEMO. Описание интерфейса программы.

    курсовая работа [880,1 K], добавлен 21.04.2015

  • Принципы разработки алгоритмов и программ на основе процедурного подхода и на основе объектно-ориентированного подхода. Реализация программы Borland Pascal 7.0, ее интерфейс. Разработка простой программы в среде визуального программирования Delphi.

    отчет по практике [934,7 K], добавлен 25.03.2012

  • Delphi - среда быстрой разработки, в которой в качестве языка программирования используется типизированный объектно-ориентированный язык Delphi. Варианты программного пакета. Особенности работы, вид экрана после запуска. Описание структуры программы.

    курсовая работа [1,3 M], добавлен 25.11.2014

  • Освоение языка программирования Delphi. Построение блок-схемы запуска главного таймера и основная логика программы. Использованные свойства и события Form, MediaPlayer, Timer, MainMenu. Запуск, пауза и остановка анимациии. Создание листинга программы.

    курсовая работа [771,9 K], добавлен 22.06.2014

  • Разработка программы по оформлению заказов на билеты Оренбургского государственного областного драматического театра им. Горького. Использование объектно-ориентированного программирования и реализация проекта в среде визуального программирования Delphi 7.

    курсовая работа [6,3 M], добавлен 12.11.2014

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.