Приложение

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

Целью этого  проекта была систематизация разных видов информации, относящейся к одной теме – в данном случае информация о различных видах птиц. Средства визуальной объектно-ориентированной среды Delphi позволили сделать эту работу быстро и с минимальными затратами. Ниже приводится краткое описание проекта, сам исполняемый файл прилагается на компакт-диске.

Разработка проекта  начиналась с главной формы (рис2.) На форме размещены всего три объекта : Label1 класса TLabel (метка), Image1 класса TImage (изображение) и кнопка Button1 класса TButton. С помощью несложного кода посредством этой кнопки производится переход на вторую форму:

   procedure TForm1.Button1Click(Sender: TObject);

   begin

      Form1.Hide;

      Form2.Show;

          end;

Рис 2. Главная  форма проекта «Birds» 

В компоненты этой формы входит объект ListBox1 (рис3.) класса TListBox – список, с помощью которого осуществляется дальнейший переход к остальным формам программы:

   procedure TForm2.ListBox1DblClick(Sender: TObject);

   begin

        Form2.Hide;

        (Birds[ListBox1.ItemIndex])^.Show;

   end;

Здесь используется массив Birds, который был описан ранее:

   const

        numBirds = 15;

        Birds: array[0..numBirds-1] of ^TForm =

        (@Vorob, @Cov, @Popug, @Raksh, @Gol, @Gus, @Pog, @DHP, @Zur, @Kul,                                      лплплл@Kur, @Dyat, @DK, @Golub, @Ping);

Рис3. Компонент  ListBox1.

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