Текущий архив: 2005.08.14;
Скачать: CL | DM;
Вниз
Обработка текста в MaskEdit Найти похожие ветки
← →
Виталька2005 (2005-07-15 14:26) [0]Здравствуйте. Задаю в маскедит маску 00.00.00
теперь если ввести например 11.22.3 или ещё как-то не по маске
возникает:
---------------------------
Debugger Exception Notification
---------------------------
Project Sisters.exe raised exception class EDBEditError with message "Invalid input value. Use escape key to abandon changes". Process stopped. Use Step or Run to continue.
---------------------------
А как мне обработать програмно неверный ввод?
Пытался в онЭкзит - ничего не получается, ошибка раньше:(
← →
Виталька2005 (2005-07-16 11:46) [1]Мастера, неужели никто не сталкивался с таким?
← →
debuger © (2005-07-17 12:50) [2]а OnChange?
← →
Amido (2005-07-25 13:41) [3]2Виталька2005
Попробуйте "это ;D":
// maska 00.00.00;1;_
procedure TForm1.MaskEdit1Change(Sender: TObject);
begin
MaskEdit1.Text := StringReplace(MaskEdit1.EditText, "_", "0", []);
end;
Криво, но хотя-бы ошибку не выкидывает :)
Страницы: 1 вся ветка
Текущий архив: 2005.08.14;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.046 c
