Как и другие ошибки заключить проблемную секцию в try except end
Например, у вас возможна ошибка при подключении к базе данных, возможные причины, нет самой базы, она недоступна или еще что-то подобное. Тогда пишем такой код:
Код:
try
AdoConnection.Open;
except
ShowMessage('Ошибка подключения к серверу баз данных. ');
Exit;
end;
Если же возникает необходимость более подробно изучить ошибку, то используют уже специализированный класс обработки ошибки:
Код:
try
AdoConnection.Open;
except
on E: EDatabaseError
do begin
ShowMessage('Ошибка БД ' + E.Message);
Exit;
end;
on E: EOleError
do begin
ShowMessage('Ошибка OLE ' + E.Message);
Exit;
end;
end;
Но никогда не надо глушить все ошибки, как уже сказали частенько ошибка может оказаться полезной.