Try except

[AlexDn]

Есть небольшое выражение -

var a,b,c:real;
c:=a/b;

Как правильно расставить try except чтобы программа не писала Error, division by zero, а написала ShowMessage('Деление на 0, b=0');?

[doktor255]

Правильнее перед делением проверять чтоб b не равнялось нулю. А вообще расставляется так.

try
//проверяемая секция кода
except
on e: Exception do begin
ShowMessage(e.Message);
ShowMessage('Деление на 0, b=0');
end;
end;

[Toxa]

а не будет ли лучше заранее проверять делитель, и если он равен нулю, вместо деления выводить сообщение?!

[evg_m]

не писала Error, division by zero, а написала ShowMessage('Деление на 0, b=0');

1. посмотреть какое исключение отвечает за это. узнать можно
почитав справку
попробовав п.3.
ответ. EZeroDivide
2. ловить его и только его! on e: EZeroDivide
3. если очень хочется то ловить остальные в другом ветке

try
  x:=a/b;
except
  on EzeroDivide do ShowMessage('делитель=0'); //2
  on e: Exception do ShowMessage('неожиданная ошибка: '+e.ClassName#13#10+e.message); // 3
end;