Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c