Geum.ru


Разработка классов предметной области "Кошки"

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование



>

Cat1.Free;

Cat2.Free;

Cat3.Free;

close;; TForm1.Button2Click(Sender: TObject);

Cat1:=TCats1.Create1;

LastUsedCat:=1;; TForm1.Button3Click(Sender: TObject);

Memo1.Lines.Add(Cat1.CatDescription); on EAccessViolation

do

showmessage('Create a cat first');; TForm1.Button4Click(Sender: TObject);

Edit1.Text:=Cat1.Name; Cat1.Sex='male cat' then ComboBox1.ItemIndex:=1 else ComboBox1.ItemIndex:=2; on EAccessViolation

do

showmessage('You should have a cat first');; TForm1.Button5Click(Sender: TObject);

Cat2:=TCats2.Create2;

LastUsedCat:=2;; TForm1.Button6Click(Sender: TObject);

Memo1.Lines.Add(Cat2.CatDescription); on EAccessViolation

do

showmessage('Create a cat first');; TForm1.Button7Click(Sender: TObject);

Edit1.Text:=Cat2.Name; Cat2.Sex='male cat' then ComboBox1.ItemIndex:=1 else ComboBox1.ItemIndex:=2;

Edit2.Text:=inttostr(Cat2.Age); on EAccessViolation

do

showmessage('You should have a cat first');

end; TForm1.Button8Click(Sender: TObject);

Cat3:=TCats3.Create3;

LastUsedCat:=3;; TForm1.Button9Click(Sender: TObject);

Memo1.Lines.Add(Cat3.CatDescription); on EAccessViolation

do

showmessage('Create a cat first');; TForm1.Button10Click(Sender: TObject);

Edit1.Text:=Cat3.Name; Cat3.Sex='male cat' then ComboBox1.ItemIndex:=1 else ComboBox1.ItemIndex:=2;

Edit2.Text:=inttostr(Cat3.Age);

Edit4.Text:=Cat3.Color; on EAccessViolation

do

showmessage('You should have a cat first');; TForm1.Button11Click(Sender: TObject); LastUsedCat = 1 then

Cat1.Name:=Edit1.Text; ComboBox1.ItemIndex=1 then Cat1.Sex:='male cat' else Cat1.Sex:='female cat'; if LastUsedCat = 2 then

Cat2.Name:=Edit1.Text; ComboBox1.ItemIndex=1 then Cat2.Sex:='male cat' else Cat2.Sex:='female cat';

try

Cat2.Age:=strtoint(Edit2.Text); on EConvertError

do

showmessage('Age should have an integer value'); if LastUsedCat = 3 then

Cat3.Name:=Edit1.Text; ComboBox1.ItemIndex=1 then Cat3.Sex:='male cat' else Cat3.Sex:='female cat';

Cat3.Age:=strtoint(Edit2.Text); on EConvertError

do

showmessage('Age should have an integer value');

Cat3.Color:=Edit4.Text; showmessage('There is no cats here yet.');; TForm1.FormActivate(Sender: TObject);

begin

LastUsedCat:=0;;.

Заключение

программирование инкапсуляция полиморфизм

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

Список использованных источников

  1. Баас, Р. Delphi 5 для пользователя. [Текст]: Издательская группа BHV 2000. - 496 с.
  2. Епашнеков, А. Программирование в среде Delphi [Текст]: учебное пособие. В 4-х ч. Ч. 1./ под ред. А. Епашнеков, В. Епашнеков - М.: ДИАЛОГ-МИФИ, 1998. - 336с.
  3. Фаронов, В.В. Delphi 4. Учебный курс [Текст]: / В.В. Фаронов. - М.: Нолидж 1998. - 450 с.
  4. Фаронов, В.В. Turbo Pascal 7.0. Начальный курс. [Текст]: учебное пособие / В.В. Фаронов. - М.: Нолидж 1997. - 616 с.
  5. Фаронов, В.В. Turbo Pascal 7.0. Практика программирования. [Текст]: учебное пособие. / В.В. Фаронов. - М.: Нолидж 1997. - 432 с.
  6. Бобровский, С. Delphi 7. Учебный курс. [Текст]: / С. Бобровский. - Питер, 2003. - 736 стр.
  7. Программирование и отладка в Delphi. [Текст]: учебное пособие под ред. К. Митчелл, К. Керман - Издательский дом Вильямс , 2003. - 672 стр.
  8. Культин И.Б. Программирование в Turbo Pascal 7.0 и Delphi. [Текст]: Киев, BHV, 1997. - 372 стр.
  9. Архангельский А. Я. Программирование в Delphi 7. [Текст]: ООО Бином-Пресс, 2005. - 1152 стр.
  10. Гофман В. Э., Хомоненко А. Д. Delphi 6. [Текст]: ООО БХВ-Петербург, 2002. - 1152 стр.
  11. Дарахвелидзе П. Г., Марков Е. П. Программирование в Delphi 7. [Текст]: ООО БХВ-Петербург, 2003. - 784 стр.
  12. Кандзюба С., П. Delphi. Базы данных и приложения. [Текст]: ООО ДиаСофтЮП, 2005. - 576 стр.