Разработка справочной системы по визуальным компонентам Delphi

Автор работы: Пользователь скрыл имя, 16 Апреля 2014 в 20:46, курсовая работа

Краткое описание

Нужно разработать справочную систему на объектно-ориентировочном языке Object Pascal по визуальным компонентам Delphi в среде визуального программирования Delphi (7 версия). Для этого будут использоваться книги авторов, таких как Возневич Э. Освой самостоятельно Delphi: Полное руководство для самостоятельного обучения; Гофман В.Э./ Хомоненко А.Д. Delphi 6; Епанешников А.М. Программирование в среде Turbo Pascal 0 – 3-е издание и другие.

Скачать в ZIP архиве (131.29 Кб) Сколько стоит заказать работу?
Вложенные файлы: 1 файл

справочная система по визуальным компонентам Delphi .doc

— 309.50 Кб (Скачать файл)

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyMisc.txt','IdCoderMD5'));

end;

procedure Tf_main.bb_IdConnectionInterceptOpenSSLClick(Sender: TObject);

begin

        m_help.Clear;

     m_help.Lines.Add(finding('IndyMisc.txt','IdConnectionInterceptOpenSSL'));

end;

 

procedure Tf_main.b_IdServerInterceptOpenSSLClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyMisc.txt','IdServerInterceptOpenSSL'));

end;

procedure Tf_main.b_findClick(Sender: TObject);

var

        fp, ff : TextFile;

        fn, fs : string;

begin

        AssignFile(fp, '_Panels.txt');

        Reset(fp);

        repeat

                ReadLn(fp,fn);

                AssignFile(ff,fn+'.txt');

                Reset(ff);

                repeat

                        ReadLn(ff, fs);

                        if pos(e_find.Text,fs)>0 then

                        begin

                                m_help.Lines.Add('');

                                m_help.Lines.Add(fs);

                        end;

                until eof(ff);

                CloseFile(ff);

        until eof(fp);

        CloseFile(fp);

end;

 

procedure Tf_main.b_fileClick(Sender: TObject);

begin

        m_help.Lines.SaveToFile('FoundText.txt');

end;

procedure Tf_main.b_printClick(Sender: TObject);

var

        f, fp : TextFile;

        s     : String;

begin

        m_help.Lines.SaveToFile('FoundText.txt');

        AssignFile(f,'FoundText.txt');

        AssignPrn(fp);

        Reset(f);

        Rewrite(fp);

        repeat

                ReadLn(f,s);

                WriteLn(fp,s);

        until eof(f);

        CloseFile(f);

        CloseFile(fp);

end;

end.

 

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

 

2.4.1. Общие сведения.

 

Обозначение и наименование программы:  Справочная система по визуальным компонентам.

Программное обеспечение, необходимое для функционирования программы:

  • Help.exe;
  • Файлы: UHalp.dfm; PHalp.dpr; UHalp.pas; PHalp.cfg; UHalp.dcu; PHalp.dof; PHalp.res.

Язык программирования: Object Pascal.

 

2.4.2. Функциональное  назначение.

 

Класс решаемых задач: Русифицированная справка-приложение к Delphi 6. Область применения: Справочная система по визуальным компонентам Delphi 6.

 

2.4.3. Описание логической  структуры.

 

Структура модуля работы с файлом справочной системы:

Отдельные переменные справочного текста с их описанием:

function finding(p1:string;p2:string):string;

var

        f  : TextFile;

        s  : string;

        sr : string;

var

        fp, ff : TextFile;

        fn, fs : string;

 

Процедуры по выполнению щелчка на определенной иконке и выведение справки на данный элемент2:

procedure bb_FramesClick(Sender: TObject);

procedure bb_EditClick(Sender: TObject);

 

Отображение справочной информации в компоненте Memo1.

m_help: TMemo;

 

Поиск по ключевому слову3:

e_find: TEdit;

b_find: TButton;

begin

        AssignFile(fp, '_Panels.txt');

        Reset(fp);

        repeat

                ReadLn(fp,fn);

                AssignFile(ff,fn+'.txt');

                Reset(ff);

                repeat

                        ReadLn(ff, fs);

                        if pos(e_find.Text,fs)>0 then

                        begin

                                m_help.Lines.Add('');

                                m_help.Lines.Add(fs);

                        end;

                until eof(ff);

                CloseFile(ff);

        until eof(fp);

        CloseFile(fp);

end;

 

Сохранение искомой информации в файл:

b_file: TButton;

procedure Tf_main.b_fileClick(Sender: TObject);

begin

        m_help.Lines.SaveToFile('FoundText.txt'); Сохранение информации.

end;

 

Организация печати информации:

b_print: TButton;

procedure Tf_main.b_printClick(Sender: TObject);

var

        f, fp : TextFile; Переменные.

        s     : String; Переменные строчного типа.

begin

        m_help.Lines.SaveToFile('FoundText.txt'); Распечатка из файла.

        AssignFile(f,'FoundText.txt');

        AssignPrn(fp);

        Reset(f);

        Rewrite(fp);

        repeat

                ReadLn(f,s);

                WriteLn(fp,s); Печать.

        until eof(f);

        CloseFile(f);

        CloseFile(fp);

end;

 

2.4.4. Используемые технические средства.

 

Программа работает на всех компьютерах семейства Intel Pentium 166 и выше. Операционная система: Microsoft Windows 98, 2000, Me.

 

2.4.5. Вызов и загрузка программы.

 

Для запуска программы необходимо запустить файл Help.exe.

 

2.4.6. Входные данные.

 

Программа работает непосредственно с файлами на диске.

 

2.4.7. Выходные  данные.

 

Выходные данные отображаются на экране или распечатываются на принтере.

2.5. Тестирование программы.

 

Разработано в среде программирования Delphi 6.

Контрольный пример предполагает проверку следующих требований:

  • соответствие описание файла и выводимой на экран информации.
  • возможность переходов по вкладкам.
  • отображение искомой информации.
  • сохранение информации в файл.
  • распечатка информации на принтере.

Программа тщательно проверялась. Ошибок не найдено.

 

2.6. Внедрение.

 

Условия выполнения программы:

минимальный состав аппаратных средств: Intel Pentium 166 MHz

минимальный состав программных средств: Microsoft Windows 98.

 

Выполнение программы:

  • запуск - запустить на выполнение файл help.exe.
  • завершение программы осуществляется путем нажатия кнопки закрытия окна.

Сообщения оператору:

Программа, не выводит никаких сообщений.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3. Литература.

 

    1. Возневич Э. «Освой самостоятельно Delphi: Полное руководство для самостоятельного обучения. /Под ред. В. Тимофеева. – М.: Бином, 1996.
    2. Гофман В.Э./ Хомоненко А.Д. Delphi 6. – СПБ.: БХВ, 1996.
    3. Дарахвелидзе П.Г. Марков Е.П. Delphi – средства визуального программирования. – СПБ.: BHV – С-Петербург, 1996.
    4. Епанешников А.М. Программирование в среде Turbo Pascal 0 – 3-е изд., стер. – М.: «Диалог-МИФИ». 1996.
    5. Зуев Е.А. Система программирования Turbo Pascal./Под общ. Ред. Чадчикова П.М.: Радиоисвязь, 1992.
    6. Конопка Р. Создание оригинальных компонент в среде Delphi: Пер. с англ. – Киев: DiaSoftLtd, 1996.
    7. Сван Том. Основы программирования Delphi для Windows 95. Киев: Диалектика, 1996.
    8. Фаронов В.В. Delphi4. Учебный курс. – М.: Нолидж, 1999.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Приложение.

 

1) Вид окна справочной системы при отображении информации выделенной иконки:

 

 

2) Вид окна справочной системы  при поиске информации. Отображаются все те компоненты, в которые включено искомое слово.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1 Сван Том. Основы программирования Delphi для Windows 95.

2 см. Приложение. п/п 1.

3 см. Приложение. п/п 2.


Информация о работе Разработка справочной системы по визуальным компонентам Delphi