Ошибка деление на ноль делфи

Нравится ресурс? Помоги проекту!

ДЕление на 0 в DELPHI 2007
, Почему не выскакивает ошибка ?

• Подписаться на тему
• Сообщить другу
• Скачать/распечатать тему

Сообщ. #1 , 18.06.10, 05:51

procedure TForm8.FormCreate(Sender: TObject); var d:Double; begin  d := 12/0;  d:=d*2;  Self.Tag := Trunc(D*2);//Ошибка вылетает только здесь, но по идее должна же вылетать на делении end; В инете находил инфу только по констатации факта, что для того, чтобы было корректно и вылетала ошибка, шужно делать через переменную. procedure TForm8.FormCreate(Sender: TObject); var d,с:Double; begin  с := 12;  d := c/0;  d:=d*2;  Self.Tag := Trunc(D*2);//Ошибка вылетает только здесь, но по идее должна же вылетать на делении end; Вот так ошибка уже не вылетает. ВОпрос. МОжно ли в настройках дельфи сделать так, чтобы ошибку выдавалобез переменной С сразу при делении 12 на 0? Сообщение отредактировано: Marriage — 18.06.10, 05:53

Chow	Сообщ. #2 , 18.06.10, 07:24
	Гм, может я не прав, но при чем тут Делфи вообще? Ошибка деления на 0 возникает только для целых типов. У вас же — Double. Там никаких ошибок быть не может т.к. результат деления на 0 — Inf (специальное значение для форматов с плавающей запятой. Еще есть NaN).

leo

Сообщ. #3 , 18.06.10, 09:12

Цитата Marriage @ 18.06.10, 05:51 МОжно ли в настройках дельфи сделать так, чтобы ошибку выдавало без переменной С сразу при делении 12 на 0? Видимо нет, т.к. компилятор воспринимает константное выражение d:=12/0 как «осознанное» присвоение переменной d значения Infinity, вполне допустимое для вещественных чисел. Соотв-но встречая 12/0 компилятор ничего не делит, а просто заменяет деление присвоением d:=Infinity Цитата Chow @ 18.06.10, 07:24 Ошибка деления на 0 возникает только для целых типов. У вас же — Double. Там никаких ошибок быть не может т.к. результат деления на 0 — Inf С поправкой, что это относится только к константам, т.к. при явном делении в рантайме d:=c/0 ошибка EZeroDivide ес-но возникает (если ее специально не маскировать вызовом SetExceptionMask)

SPrograMMer	Сообщ. #4 , 18.06.10, 13:41
	все гораздо проще… компилятор оптимизирует строчки: d := 12/0;  d:=d*2;  Self.Tag := Trunc(D*2); в Self.Tag := Trunc((12/0)*2*2); может даже быть так, что переменная в опертивной памяти не наблюдается

leo

Сообщ. #5 , 18.06.10, 14:15

Цитата SPrograMMer @ 18.06.10, 13:41 все гораздо проще… А что проще то ? По любому при наличии в константном выражении деления на 0 компилятор заменяет все выражение на Infinity, которое для процессора является вполне легальным значением и соотв-но ни его загрузка в FPU, ни умноженияделения и т.п. на конечные значения не вызывают никаких исключений. Поэтому независимо от того соптимизирует компилятор вычисления или нет, ошибка тут будет не EZeroDivide, а EInvalidOp при попытке преобразовать Infinity к целому числу через Trunc Сообщение отредактировано: leo — 18.06.10, 14:17

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

• Предыдущая тема
• Delphi: Общие вопросы
• Следующая тема

[ Script execution time: 0,0323 ]   [ 16 queries used ]   [ Generated: 30.01.23, 06:36 GMT ]  

Это очень полезный инструмент ,и, кроме того, очень распространенный. Не знаю, как вы искали в гугле, если ничего не нашли на эту тему…

Конструкция

Try -> EXCEPT -> END

управляет поведением возможной исключительной ситуацией, которая может возникнуть в секции «TRY». Если такая возникает, то выполнение кода в секции «TRY» прекращается и моментально перепрыгивает в начало секции «EXCEPT» и код, находящийся там, выполняется до конца, т.е до «END». Рассмотрим пример обработки исключительной ситуацией «EZeroDevide»(деление на ноль) :

...
var
  a: integer;
  ...
begin
  try
    a := 1/0; 
  except
    on EZeroDivide do showmessage('Divide by zero not allowed!'); // обработка КОНКРЕТНОЙ исключителной ситуации
  end;
end;

Также существует еще одна конструкция обработки исключительных ситуаций:

TRY -> FINALLY -> END

Данный блок функционирует немного иначе: если в секции «TRY» возникнет исключительная ситуация, то выполнение кода оставновится в этой секции и перепрыгнет в секцию «FINALLY».
Но даже если никакой исключительной ситуации не возникнет, то в конце выполнения кода в «TRY», секция «FINALLY» все равно будет выполнена. Эту конструкцию уместно применять, если в конце работы надо произвести операции по, например, освобождению памяти. Пример:

1 случай:

...
try
  a := 1/0; 
finally
  showmessage('Divide by zero not allowed!');
end;
...

2 случай:

...
try
  a := 1/1; 
finally
  showmessage('Divide by zero not allowed!');
end;
...

В обоих случаях будет выведено сообщение.

Классы исключительных ситуаций именуются начиная с буквы «Е», а базовый класс просто называется Exception. Этот базовый класс содержит необходимую функциональность, которую наследуют все объекты ошибок. Тут можно выделить свойство Message, в котором содержится сообщение об ошибке и функции работы с файлом помощи, через которые можно вызвать файл справки с описанием про­изошедшей ошибки.

В библиотеке VCL предопределено достаточно большое количество классов на различные типы ошибок, и все они являются наследниками Exception. Например, класс EinOutError соответствует ошибке ввода-вывода. Такие ошибки возникают при обращении к дискам.

Когда происходит ошибка, то создается объект, который является наследником класса, соответствующего типу ошибке. Так, если произошла ошибка ввода- вывода, то будет создан экземпляр класса EinOutError.

Давайте рассмотрим пример из листинга 8.10, где в блоке обработки ошибок я пытаюсь разделить число на ноль, что запрещено. Результат деления заносится в переменную t. Обратите внимание, что после этого я делаю проверку if. Эта проверка абсолютно бессмысленна и добавлена только для того, чтобы после деле­ния было хоть какое-то обращение к переменной. Если никакого обращения не бу­дет, то Delphi видит бессмысленность деления и оптимизатор не делает его.

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

Если дословно перевести, что здесь написано, то это будет выглядеть так: в случае ошибки выполнить код между begin и end. Обратите внимание, что пере­менную я заключил в квадратные скобки. Это означает, что переменную заводить не обязательно, что мы и делаем при обработке ошибки ввода-вывода:

В случае ошибки вызывается функция showMessage, которая отображает на эк­ране окно диалога с сообщением, которое указано в качестве параметра.

А теперь посмотрим на то, как мы обрабатываем ошибку деления на ноль:

Ошибке деления на ноль соответствует класс EZeroDivide. Перед классом ошибки написана переменная с именем е. Через нее мы сможем узнать сообщение об ошибке, например, так е.Message.

Помимо этого, в блоке except листинга 8.10 стоит еще ключевое слово else, как при логической операции. Обратите внимание, что после end прямо перед else стоит точка с запятой, хотя мы знаем, что это ее не нужно ставить. Ненужно только для логических операций. В данном случае else используется для обработки ис­ключительных ситуаций, и операция после этого ключевого слова будет выполне­на, если до этого ошибка не была обработана. То есть если произошла ошибка, ко­торая не была обработана блоком on ошибка do, то будет выполнен код после else.

Итак, попробуйте создать новое приложение, поместить на него кнопку и по ее нажатии написать код из листинга 8.10. Запустите пример и лучше сделайте это из Delphi. Теперь попробуйте нажать на кнопку. Произойдет ошибка, и Delphi пере­хватит на себя управление, покажет строку кода, где произошла исключительная ситуация, и покажет окно диалога с сообщением, описывающим ошибку.

Осмотрев строку кода, где произошла ошибка, нажимаем клавишу <F9>, чтобы продолжить выполнение программы. И в этот момент управление будет передано нашей программе, и вы увидите сообщение, которое мы показываем с помощью функции ShowMessage В блоке except.

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

Сообщения могут генерироваться не только исполняемой средой, но и вручную. Чтобы сгенерировать свое сообщение, используется оператор raise. После этого оператора нужно указать объект ошибки. Именно объект, т. е экземпляр какого-то класса ошибки.

Давайте посмотрим, как можно вручную сгенерировать ошибку ввода-вывода. Чтобы создать новый объект этого класса, нужно вызвать метод create, а этому ме­тоду передается сообщение, которое будет отображаться, когда сработает событие.

EinOutError.Create(‘Ошибка ввода-вывода’)

Итак, конструктор create вернет нам экземпляр класса ошибки ввода-вывода. Его мы и должны указать после оператора raise:

raise EinOutError.Create(‘Ошибка ввода-вывода’);

Вы можете создать собственный класс ошибки, нарастить его возможности, как душа пожелает, и использовать его. Давайте посмотрим, как это будет выглядеть на примере. Создадим класс MyException, который будет является наследником базо­вого класса всех ошибок — Exception:

Это объявление типа, поэтому все это должно быть в разделе type вашего моду­ля. Помимо того что класс наследовал от базового, мы объявили еще одну функ­цию Getsomestr, которая просто возвращает строку. Не будем усложнять жизнь, а реализуем эту функцию банально — просто вернем заранее определенную строку:

В разделе try мы вручную генерируем ошибку собственного типа MyException. В разделе except мы перехватываем эту ошибку и с помощью функции ShowMessage отображаем результат функции GetSomeStr. Вот так все просто и красиво.