Проблема проверки добавляемого значения.

← →
S!D © (2002-10-26 12:53) [0]

Проблема проверки добавляемого значения.
Есть таблица Table1, связанный с ее индексированным полем DBEdit1.
Необходимо перед обновлением произвести проверку присутствия или отсутствия в этом поле введенного значения (DBEdit1.Text).
Приведенный ниже код не работоспособен.
Буду признателен, если подкините решение данной проблемы и/или объясните в чем ошибка.
procedure TForm1.DataSource1UpdateData(Sender: TObject); begin if Table1.FindKey([DBEdit1.Text]) then begin ...

← →
Anatoly Podgoretsky © (2002-10-26 13:01) [1]

Как проявляется не работоспособность?

← →
S!D © (2002-10-26 14:50) [2]

Debugger Exception Notification

Project raised exception class EStackOverFlow W/message "Stack overflow"
причем при трассировке видно что прога зацикливается с if на begin приведенного кода

← →
S!D © (2002-10-26 14:52) [3]

.. т.е begin процедуры.

Естественно, она и ДОЛЖНА циклить. Что ж ты в событии, возникающем ПЕРЕД тем как постировать изменения, пытаешься покинуть ИЗМЕНЕННУЮ запись ?
Проверка на дублирование ключей должна ИМХО выполняться в событии OnKeyViolate (точнее, не проверка, а собственно реакция на повтор ключа) - никаких доп.поисков при этом не требуется.

Искать надо если поле не есть ключ или уникальный индекс и другим методом - LookUp, который ищет повторяемость, НЕ ПОКИДАЯ текущую запись.
К событиям TDataSource надо вообще относиться очень осторожно, хорошо понимая суть и последовательнось реакции отдельных составляющих программы (источника, отображателя, физ.НД и т.д.)

И правда, чего это я?
спасибо за вправку извилин! :)

Проблема проверки добавляемого значения. Найти похожие ветки