Try except в навигаторе

@ulbfsar · Регистрация: 18.12.2015

Author24 — интернет-сервис помощи студентам

В навигаторе при нажатии кнопки удалить запись нужно отловить системную ошибку и вывести свою.
Если данная запись не связана с другими таблицами то удалит ее, иначе отлов ошибки с нашим текстом.

Помогите дописать код, данный код не отлавливает ошибку.

Delphi

if button = nbDelete    then
try
dm.student.delete;
except
MessageDLG('Наш текст', mtWarning,[mbOk],0);
end;

@YuryK · 20.03.2017, 14:50

а ту уже отловил?
Отлов ошибки в навигаторе

Добавлено через 2 минуты
А данный код должен удалить две записи подряд, если без ошибки.

@ulbfsar · 20.03.2017, 19:56 **[ТС]**

Не распознает эту строчку

Delphi

1	if not FConfirmDelete or

Добавлено через 26 минут
скинь исходник проектом, если не сложно, я там пойму.

@qwertehok · 20.03.2017, 22:40

да не делает никто так
берешь сначала проверяешь ЗАПРОСОМ нет ли связанных записей
и если нету - удаляешь

только так, и никак иначе.

@YuryK · 20.03.2017, 23:30

Сообщение от ulbfsar

Не распознает эту строчку

и слава богу. В очередной раз повторяю, иди своя кнопка и ней

Delphi

try
dm.student.delete;
except
MessageDLG('Наш текст', mtWarning,[mbOk],0);
end;

или навигатор, но без возможности обработки ошибки

Сообщение от ulbfsar

скинь исходник

приведенный код - это был код навигатора, он и у тебя есть )

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	20.03.2017, 14:50	2
	а ту уже отловил? Отлов ошибки в навигаторе Добавлено через 2 минуты А данный код должен удалить две записи подряд, если без ошибки. 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,135 Записей в блоге: 3
	20.03.2017, 22:40	4
	да не делает никто так берешь сначала проверяешь ЗАПРОСОМ нет ли связанных записей и если нету - удаляешь только так, и никак иначе. 0

	20.03.2017, 23:30