Обработка исключений

← →
Ann123 (2006-08-27 13:28) [0]

Как обработать следующее исключение:
В модальной форме несколько компонентов DBEdit и кнопка.
Нужно если хотя бы один компонент не заполнен то выводилось сообщение о необходимости заполнить этот компонент, если ве компоненты заполнены, то эти данные заносятся в таблицу.

← →
Anatoly Podgoretsky © (2006-08-27 14:02) [1]

Вопрос не четкий, если хочешь возбудить исключение, то вызови raise

← →
Мефисто (2006-08-27 14:09) [2]

> Ann123 (27.08.06 13:28)

В конструкторе таблиц указать, что поля обязательно для заполнения и не должно быть пустым. При попытке ввести пустое значение - приложение само обругает.

← →
valery © (2006-08-28 20:55) [3]

Можно я к вам?:)
Помогите плиз!
Есть таблица с обязательным полем. Редактируется в гриде.
Есть процедура:

procedure TDM.RefBeforePost(DataSet: TDataSet);
begin
if DataSet.Fields[1].AsString="" then DataSet.Cancel;
end;

При добавлении записи работает. При редактировании ругается:
"Not in Edit Mode"
Что делать?

← →
Мефисто (2006-08-28 21:31) [4]

> valery © (28.08.06 20:55) [3]

Говорит что таблица не находится в режиме редактирования или вставки новой записи. Следовательно перед Post (вставкой запси), таблицу нужно перевести в режим редактирования. Скорее всего что-то типа: Table.Edit;

← →
Fay © (2006-08-28 21:42) [5]

2 Мефисто (28.08.06 21:31) [4]
> Следовательно перед Post (вставкой запси), таблицу
> нужно перевести в режим редактирования
Это, пожалуй, самое любопытное предположение за сегодня.

← →
Мефисто (2006-08-28 22:06) [6]

> Fay © (28.08.06 21:42) [5]

Да, пожалуй :( Знаю слово, назвать не смог. Чукча (с).

> Мефисто (28.08.06 21:31) [4]
>
> Говорит что таблица не находится в режиме редактирования
> или вставки новой записи.

Это я понимаю.
Но я так думаю что Грид сам переводит таблицу в нужный режим.
И при вставке все отменяется нормально.

> valery © (28.08.06 20:55) [3]

procedure TDM.RefBeforePost(DataSet: TDataSet);
begin
if DataSet.Fields[1].AsString="" then Abort;
end;

Обработка исключений Найти похожие ветки