Query

← →
Neket (2007-01-05 14:28) [0]

Подскажите как правельно обработать ошибку при использовании Query таким образом:

Form1.Query3.close;
Form1.Query3.SQL.Clear;
If StrZapros <> "" then
Form1.Query3.SQL.Add(StrZapros)
else
begin
messageDlg("Íå áûë ââåäåí SQL-çàïðîñ", mtError, [mbOK], 0);
exit;
end;
try
Form1.Query3.ExecSQL; // при возниконовении ошибки у меня компилятор выкидывает здесь ошибку т.е. обработчик по всей видимости не срабатывает.
except
On e : EDatabaseError do
begin
Form1.Memo1.Lines.Add("// WRITE IN BD - NO \\");
Exit;
end;
end;
Form1.Memo1.Lines.Add("// WRITE IN BD - YES \\");

Ошибка мне известна. Я специально пишу в не существующую таблицу для проверки того как у меня отработает обработчик.
Заранее спасибо

← →
Anatoly Podgoretsky © (2007-01-05 14:35) [1]

> Neket (05.01.2007 14:28:00) [0]

А если поставить точку останов?

← →
Neket (2007-01-05 14:44) [2]

Попробовал... Вылетает именно на Form1.Query3.ExecSQL т.е. обработчик не срабатывет

← →
try (2007-01-05 14:48) [3]

Запусти ехешник и удивись.
Кстати, причём тут компилятор?

← →
Neket (2007-01-05 15:03) [4]

2 try: Ошибся... Не компилятор а дебагер... :-)

А как отключить такую обработку ошибок в Delphi?

Query Найти похожие ветки