Сообщение об ошибке при вводе неверного типа информации в DBEdit

[megaten]

День добрый,
Есть DBedit, который ссылается на поле в таблице Access, в которой тип данных - дата. Как сделать так, чтобы при вводе в этот "едит" неверного типа данных(текст там, просто цифры) выдавалось предупреждение?
Заранее спасибо

[ArtInt]

Просто используй конструкцию try except on end.
Вот например:

procedure TForm1.Button1Click(Sender: TObject);
var
 k: Integer;
begin
 try
  k:=strtoint(Edit1.text);
 except
   on e: Exception do
    // Application.HandleException(Sender);
    showmessage('ошибка');
 end;
end;

Можешь это на onChange DBEdit поставить, зависит от того где может выскочить ошибка.

[megaten]

Моя ошибка, все отлично работает
Большое спасибо

Да и еще вопрос, как в Delphi можно реализовать маски ввода, для тех же самых дат?

[ArtInt]

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

Моя ошибка, все отлично работает
Большое спасибо

Да и еще вопрос, как в Delphi можно реализовать маски ввода, для тех же самых дат?

Для этого есть компонент MaskEdit палитра Additional, там выбираешь свойство EditMask и выбираешь или редактируешь маску ввода.

[megaten]

Понятно, а как МаскЕдит связать с ДБЕдитом?
Всмысле МаскЕдит же не связывается с БД

Да, и как можно исключить точку из перечня, вызывающих сообщение в коде наверху? А то из-за того, что в датах есть точки постоянно ошибка выдается

[ArtInt]

 if not DBedit1.IsMasked then
  DbEdit1.Field.EditMask:='!99/99/00;1;_';

DBEdit тоже поддерживает маски, просто обращение другое, по исходнику посмотрел. Тогда если маску использовать, то наверное сообщение об ошибке можно даже не выводить так как все равно не допустит неправильных значений.

[megaten]

Здорово, все получилось. Большое спасибо.