TClientDataset обработка ошибки

Всем привет есть такой код редактирования

cdsF.Edit;
cdsFMNo.AsString:=edMNo.Text;
cdsFKomu.AsString:=edEmployee.Text;
cdsFDataVyda4i.AsString:=edData.Text;
cdsF.Post;

поле cdsFMNo целого типа.
При случайном присваивании ему не числового значения в строке

cdsFMNo.AsString:=edMNo.Text;

происходит ошибка вида '<значение> is not valid integer for field MNo'
Вопрос в том где ее можно перехватить и обработать?
В TClientDataset есть события OnPostError и OnEditError оба не реагируют на данное исключение.
Можно конечно заключить данный код в try..except но хотелось бы все ошибки данных обрабатывать самим TClientdataset
возможно ли это?

Читать про try-except

Цитата Павел Калугин @ 04.03.16, 08:02

Читать про try-except

про try..except я все знаю и уже давно сына

Цитата Delfin4ik @ 04.03.16, 02:52

При случайном присваивании ему не числового значения в строке

Случайностей быть не должно. Контролируй ввод, например по маске.

Цитата Bas @ 05.03.16, 12:10

Случайностей быть не должно. Контролируй ввод, например по маске.

Тот же TEdit можно сделать NumericOnly (в свойствах смотри, точное название не помню).

Цитата Delfin4ik @ 04.03.16, 18:08

Цитата Павел Калугин @ 04.03.16, 08:02

Читать про try-except

про try..except я все знаю и уже давно сына

о как.. Какой у нас старый Дельфинчик шестидесяти лет отроду завелся...
Ладно это лирика
Ну раз знаешь про try..except все так "оберини" им post и внутри обрабатывай ошибку
Ну или, как СанИваныч и Bas верно пишут, не допускай ввода фигни
1. разрешить в edMNo ввод только чисел (например в событии OnKeyPressed обработку сделать)
2. раз поле числовое нечего ему asstring текст совать. есть же AsInteger, например

Сообщение отредактировано: Павел Калугин - 07.03.16, 09:40

Цитата Павел Калугин @ 07.03.16, 09:39

Какой у нас старый Дельфинчик шестидесяти лет отроду завелся

Павел! Когда-то я нашего уважаемого Борисыча сынком обозвал!
ЗЫ - не удержался, сорри за флуд...

Сообщение отредактировано: #SI# - 07.03.16, 19:59

Павел Калугин,#SI# - Использование преобразования очень помогает, вместо "неявного" преобразования

Bas, я про это и аписал вторым пунктом

man strtointdef

решение было принято такое: недопускать занесения неправильных значений.

То есть "asstring" оставили?

Цитата Павел Калугин @ 20.03.16, 05:47

То есть "asstring" оставили?

ну да оставил, в редакторе же текст а поле целого типа.
для проверки значения решил поюзать валидатор из JEDI VCL

Цитата Delfin4ik @ 20.03.16, 02:58

Delfin4ik поле.asinteger =strtoint(edit.text)
Так ты сразу отловишь косяки ввода. А они будут, как ни рисуй защиту от дурака.

Цитата Павел Калугин @ 20.03.16, 09:01

как ни рисуй защиту от дурака

Если речь о целых числах, то защиту надо просто включить:

Цитата #SI# @ 05.03.16, 12:30

TEdit можно сделать NumericOnly (в свойствах смотри, точное название не помню)

И это помешает ввести число 99999999999999999999999999999999999?

Не пробовал. Констрайнты на сервере при создании таблиц пишу на допустимые значения.

Цитата Павел Калугин @ 20.03.16, 09:01

Цитата Delfin4ik @ 20.03.16, 02:58

Delfin4ik поле.asinteger =strtoint(edit.text)
Так ты сразу отловишь косяки ввода. А они будут, как ни рисуй защиту от дурака.

чем это отличается от

поле.asString:=edit.text

Добавлено 21.03.16, 03:12

Цитата Павел Калугин @ 20.03.16, 15:16

И это помешает ввести число 99999999999999999999999999999999999?

такая проверка легко решается даже без валидаторов JVCL простsм указанием Edit.MaxLength

Добавлено 21.03.16, 03:15
но как я уже сказал все решается с помощью валидаторов JVCL

Тем что сразу будет ошибка преобразования типов, которую можно легко обработать

она и в моем случае будет

Добавлено 21.03.16, 05:40
для сравнения

function StrToInt(const S: string): Integer;
var
  E: Integer;
begin
  Val(S, Result, E);
  if E <> 0 then ConvertErrorFmt(@SInvalidInteger, [S]);
end;

procedure TIntegerField.SetAsString(const Value: string);
var
  E: Integer;
  L: Longint;
begin
  if Value = '' then Clear else
  begin
    Val(Value, L, E);
    if E <> 0 then DatabaseErrorFmt(SInvalidIntegerValue, [Value, DisplayName]);
    SetAsInteger(L);
  end;
end;

думаю в комметариях нет нужды

Добавлено 21.03.16, 05:44
те же яйца только в профиль:D