OnSetText Глюк или реальность?

← →
Bless © (2006-09-18 11:22) [0]

Описание непонятного мне поведения:
есть ADODataSet -> datasource -> dbgrid
dataset настроен на таблицу, у которой есть NOT NULL поле xxx (или поля) и еще какое-нибудь поле без ограничений yyy.
Если попробовать в гриде добавить новую запись, заполнить в этой записи yyy и сделать Post (сдвинувшись на предыдущую запись), то возникает ошибка типа "поле xxx не позволяет Null-значения". Это нормальное поведение.
Если же повесить на field yyy ADODataset-a обработчик OnSetText (с любым содержимым, например просто "//" между begin - end) и проделать все то же самое, то ошибка не выскакивает (правда, и новая запись не добавляется, она просто пропадает)!

Это нормально?

← →
Виталий Панасенко (2006-09-18 11:47) [1]

А не пробовал тоже самое делать в OnNewRecord ?

← →
sniknik © (2006-09-18 11:48) [2]

ну ты же подменяеш стандартный обработчик записи значения в поле, чего тогда ждеш исключения если ты сам его не возбуждаеш -> "просто "//" между begin - end"?
а в стандартном оно наверняка есть.

← →
sniknik © (2006-09-18 11:55) [3]

попробуй вместо //
procedure TForm1.ADODataSet1DSetText(Sender: TField; const Text: String);
begin
Sender.AsString:= Text;
end;

Все понял, прошу прощения, все логично.
Отсутствие исключения нормально, т.к. я ничего полю в обработчике не присваивал, а следовательно, вообще новую запись не редактировал, а значит никаких post в базу реально не было.

> sniknik © (18.09.06 11:55) [3]

Угу.
Просто сначала, не подсмотрев в DB.pas, я представлял, что это выглядит это приблизительно так:
procedure SetText(value).... begin ... if assigned(FOnSetText) then FOnSetText(self, value); //если value изменилось, то оно будет значение поля, //если нет, то значением поля будет value переданное в SetText ... end;
Т.е. я решил, что этот обработчик вызывается внутри метода SetText. А оказалось, что вместо него.

OnSetText Глюк или реальность? Найти похожие ветки