Разработка простого приложения Delphi

4.   Выберите пункт меню File/New Application, этим вы создадите новый

     проект приложения.

5.   Выберите команду File/Save Project As…

     ♦ В появившемся диалоге перейдите  к корневому каталогу диска  C,

         выбрав соответствующий пункт в выпадающем списке вверху окна.

     ♦ Откройте папку, соответствующую  названию вашей группы (напри-

         мер, Р-123). Если такой нет, то  создайте её, щелкнув правой кнопкой

         мыши на свободном месте, выбрав  из появившегося контекстного

         меню пункт Создать/папку и  введя нужное название (после  чего не

         забудьте её открыть).

     ♦ Создайте (как описано в предыдущем  пункте) папку "Ваша_фамилия

         Lab1".

     ♦ Сохраните Unit1.pas под новым  именем Main.pas, а Project1.dpr под

         новым именем Lab1.dpr. 

6.   Выберите из политры Standard визуальных  компонентов и поместите в

     форму следующие компоненты: 

     ♦    Окно редактирования  со связанной с ним меткой Operand 1. В этом

          окне вводится первый операнд.

     ♦    Окно редактирования  со связанной с ним меткой Operator. В этом

                                       13 
 

          окне вводится операция. В программе  следует предусмотреть опе-

          рации +, -, / и * .

   ♦      Окно редактирования со связанной с ним меткой Operand 2. В этом

          окне вводится второй операнд.

   ♦      Окно редактирования со связанной  с ним меткой Result. В этом ок-

          не отображается результат запрошенной  вами операции. 

    Пример простого калькулятора приведен на рис.1.1. 

    1.   В событиях OnClick каждой кнопки  опишите соответствующие дей- 
 

         ствия, например, для кнопки            код события должен выглядеть

         следующим образом: 

If Edit2.Text='0' Then ShowMessage('Знаменатель равен "0"!')

Else

     Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text)); 

    Обратите внимание, что в данном действии осуществляется проверка

деления на ноль. Оператор ShowMessage выдает сообщение, представленное

на рис. 1.2 в случае, когда Y равен "0". 
 
 
 

                      Рис. 1.1. Пример формы калькулятора 
 
 
 

                                         14 
 

                        Рис. 1.2. Сообщение об ошибке 

    Процедуры FloatToStr и StrToFloat выполняют  преобразования из число-

 вой  переменной в строковую и из  строковой в числовую соответственно.

    Остальные клавиши должны быть  описаны соответственно.

    2. Измените программу, дополнив  ее возможностями очистки содер-

        жимого полей (например, кнопка Clear) и вычисления значения за-

        данной функции, согласно варианту  индивидуального задания.

    3. Сохраните форму и проект. 

5. Варианты  индивидуальных заданий 

1.   Создайте кнопку для нахождения  значений функции Z=Sin(2X+3Y).

2.   Создайте кнопку для нахождения  значений функции Z=Cos(4X-2Y).

3.   Создайте кнопку для нахождения  значений функции Z=Tan(2X+Y).

4.   Создайте кнопку для нахождения  значений функции Z=X! При этом  в

     поле Y копируйте значение X.

5.   Создайте кнопку для нахождения  значений функции Z=Log(2X+Y+3).

6.   Создайте кнопку для возведения X в целочисленную степеньY. 

6. Результаты  работы 

     В результате выполнения лабораторной  работы студент должен проде-

     монстрировать преподавателю готовый  проект калькулятора, файл фор-

     мы и исходный код модуля. 
 
 
 

                                     15 
 

                    ЛАБОРАТОРНАЯ РАБОТА № 2 

  Обработка  исключительных ситуаций в Delphi. Восприятие ввода от

                         пользователя 

1. Цель  работы

    Ознакомление с классом исключительных ситуаций Delphi и создание

 приложений, генерирующих исключения и обрабатывающие  различные фо-

 кусы  ввода. 

2. Домашнее  задание

         Изучить разделы 5 и 6 конспекта  лекций, ознакомиться с описанием

 и заданием  на лабораторную работу. 

3. Основные понятия и приемы

  3.1. Обработка  исключений

          На этапе выполнения Delphi порождает  исключения, когда какой-

либо процесс  идет неправильно. Если код вашей  подпрограммы написан со-

ответствующим образом, он может распознать возникшую  проблему и по-

пытаться  ее решить; в противном случае исключение передается в код, ко-

торый вызвал вашу подпрограмму и т.д. В конечном счете, если никто не

обработал исключение, его обрабатывает Delphi, выводя на экран стан-

дартное сообщение об ошибке и пытаясь  продолжить выполнение програм-

мы.

          Весь механизм строится на  четырех ключевых словах:

   try – определяет начало защищенного  блока кода;

   except – определяет конец защищенного  блока кода и вводит операторы

   обработки  исключений в следующем виде: 

     on (тип исключения) do (оператор) 

   finally – указывает необязательный блок, который используется для ос-

   вобождения  ресурсов, распределенных в блоке  try перед обработкой ис-

   ключения; этот блок завершается ключевым  словом end.

   raise – оператор, используемый для порождения исключений. Большин-

   ство  исключений, которые вы встретите  при программировании на Del-

   phi, будут порождаться системой, но  вы также можете создать их  в соб-

   ственном  коде, когда во время выполнения  обнаружатся недопустимые

   или  несогласованные данные. Кроме того, ключевое слово raise можно

   использовать  внутри обработчика для повторного  порождения исключе-

                                     16 
 

   ния,  т.е. для передачи его следующему  обработчику.

   Если вы хотите, чтобы при правильной обработке исключений програм-

ма продолжала выполняться, отключите опцию отладки Break on Exception в

окне Environment Options. 

  3.2. Предопределенные  обработчики исключительных ситуаций

   Ниже  Вы найдете справочную информацию по предопределенным ис-

ключениям, необходимую для профессионального  программирования в

Delphi. 

   •   Exception - базовый класс-предок всех  обработчиков исключитель-

       ных ситуаций.

   •   EAbort - “скрытое” исключение. Используйте  его тогда, когда хоти-

       те прервать тот или иной  процесс с условием, что пользователь  про-

       граммы не должен видеть сообщения  об ошибке. Для повышения

       удобства использования в модуле SysUtils предусмотрена процедура

       Abort, определенная как:

          procedure Abort;

          begin

               raise EAbort.CreateRes(SOperationAborted) at ReturnAddr;

          end;

   •   EComponentError - вызывается в двух ситуациях:

           1) при попытке регистрации компоненты  за пределами процеду-

       ры Register;

           2) когда имя компоненты не уникально  или не допустимо.

   •   EConvertError - происходит в случае  возникновения ошибки при

       выполнении функций StrToInt и StrToFloat, когда конвертация стро-

       ки в соответствующий числовой тип невозможна.

   •   EInOutError - происходит при ошибках  ввода/вывода при включен-

       ной директиве {$I+}.

   •   EIntError - предок исключений, случающихся  при выполнении це-

       лочисленных операций.

   •   EDivByZero - вызывается в случае деления на ноль, как результат

       RunTime Error 200.

   •   EIntOverflow - вызывается при попытке  выполнения операций, при-

       водящих к переполнению целых  переменных, как результат RunTime

       Error 215 при включенной директиве  {$Q+}.

   •   ERangeError - вызывается при попытке обращения к элементам

       массива по индексу, выходящему  за пределы массива, как результат

       RunTime Error 201 при включенной директиве  {$R+}.

   •   EInvalidCast - происходит при попытке  приведения переменных од-

                                     17 
 

    ного класса к другому классу, не совместимому с первым (например,

    приведение переменной типа TListBox к TMemo).

•   EInvalidGraphic - вызывается при попытке  передачи в LoadFromFile

    файла, несовместимого графического  формата.

•   EInvalidGraphicOperation - вызывается при попытке  выполнения

    операций, неприменимых для данного  графического формата (на-

    пример, Resize для TIcon).

•   EListError - вызывается при обращении  к элементу наследника

    TList по индексу, выходящему за пределы допустимых значений (на-