Перехват ошибок

[Konstantin_ua]

Всем привет.
Не могу перехватить ошибку при помощи try... exception при вводе неправильной даты в MaskEdit(точнее не знаю как отловить тот момент когда вводишь только 2 цифры а не полностью 6), маска на едите стоит !99/99/00;1;_. Вот код

try
  if (TryStrToDateTime(medt1.Text, dat) =False) then
  begin
    medt1.Clear;
    ShowMessage('Íå â³ðíî âêàçàíà äàòà');
  end;
  except
 on  E :EDBEditError  do
  ShowMessage('Íå â³ðíî âêàçàíà äàòà'+ E.Message);
  end;

Чуток почитал литературы и понял что нужно выбирать класс в котором хранятся ошибки определенного типа, в моем случае это EDBEditError, поставил но все равно не получил нужного результата.Помогите разобраться что не так делаю.

вот сама ошибка Безымянный.jpg

[Аватар]

Посадите на OnSetText фиелда такой обработчик. У меня имя поля Date и датасет - ClientDataSet1. У вас естественно свое

procedure TForm1.ClientDataSet1DateSetText(Sender: TField; const Text: String);
var Value: TDateTime;
begin
  if TryStrToDateTime(Text,Value) then ClientDataSet1Date.AsDateTime:=Value;
end;

[northener]

if (TryStrToDateTime(medt1.Text, dat) =False) then
  begin
    medt1.Clear;
    ShowMessage('Íå â³ðíî âêàçàíà äàòà');
  end;

А где в этом коде вообще может возникнуть хоть какое-то исключение связанное с БД?

[Аватар]

исключение связанное с БД

У ТС dbedit или грид. Вроде в предыдущих постах так было

[northener]

Сообщение от Аватар

У ТС dbedit или грид. Вроде в предыдущих постах так было

Это ТС написал. Только участок кода для постановки защищенного блока выбрал неправильно. На что я и намекал.

[Konstantin_ua]

Нет тут ошибка сугубо с Маскедитом.
Бросил на форму перехватчик событий ApplicationEvents. в OnException пишу

procedure TF_add.aplctnvnts1Exception(Sender: TObject; E: Exception);
begin
 if (E.ClassType = EDBEditError)
    and (Sender Is TMaskEdit)   then
   ShowMessage('tyt ');

end;

end.

ну что то не работает...

[Аватар]

Нет тут ошибка сугубо с Маскедитом

Это ошибка преобразования символьной строки в дату-время при попытке записи в поле датасета

[northener]

ну что то не работает

Ясно что.

Sender Is TMaskEdit

[Konstantin_ua]

Sender Is TMaskEdit

можно поточнее пожалуйста

 if (E.ClassType = EDBEditError)   then
   ShowMessage('tyt ');

так тоже не работает

[Konstantin_ua]

снял галочку Tools-Debugger Options-Integrated Debugger помогло ну не знаю что сделал...