Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Буфер записи

Автор: neat 12.1.2006, 10:02

Здравствуйте все!
Для проверки значения поля требуется обратиться к буферу поля (или записи). Метод Validate() поля как раз это и делает. При неправильном вводимом значении генерится исключение, надо его перехватить и обработать. Это как раз и не получается.

Код


procedure TfmMain.dbgridPRIHODKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
If Key = VK_RETURN then begin
    If tbl_PRIHOD.State = dsEdit then
            try
                tbl_PRIHOD.FieldByName('DatePrihod'). Validate(tbl_PRIHOD.FieldAddress('DatePrihod'));
            except
                on E: EConvertError do
                 ShowMessage('Не правильное значение даты !');
            end;
end;
end;

Программа выдаёт своё сообщение "'99.99.1989' is not valid date and time", а мне нужно моё. Как быть?

Автор: <Spawn> 12.1.2006, 10:06

Запусти программу вне отладчика Дельфи и увидишь, что все работает. Либо отключи в опциях обработку исключений IDE.

Автор: neat 12.1.2006, 10:32

Опция давно отключена. Вне delphi всё также. Подробность: когда в Grid'e в ячейке, где надо вводить дату, ввожу неправильное значение и просто напросто жму Enter , т.е. ещё даже не вызывается метод Post. В этот момент программа (или Grid или Table) проверяет только что введённое значение на соответствие допустимому значению, т.е. вызывается обработчик события OnValidate, позволяющий проверить значение. Но дело в том, что я обращаюсь к полям не через TField, в котором определено событие OnValidate. В моём случае есть метод Validate (см. код), который генерирует это событие и параметром у него - указатель на буфер записи. В общем если вызов этого метоа не даст ошибку, значит зачение введено верно. Пытаясь обработать ничего не получаю кроме "..... not valid ...".

Автор: neat 12.1.2006, 11:47

Ну что, никто не знает как здесь быть-то?

Автор: <Spawn> 13.1.2006, 10:55

А ты уверен, что возникает EConvertError? Попробуй посмотреть что за клас исключения всплывает у тебя, наример, так:

Код


except
  on E: Exception do
    ShowMessage(E.ClassName); //Или GetClassName - не помню точно уже
end;