Корректный ввод

← →
KEBZ (2006-09-20 21:55) [0]

Всем сдрасте. Плиз хелп!
Как сделать защиту от некорректного ввода символов в TEdit нуна вводить цифры от [0..4] а чтоб другие симвалы не вводилиь. падскажите плз как?

← →
Desdechado © (2006-09-20 22:40) [1]

OnKeyDown ?
может, лучше выкидывать все лишнее перед использованием введенного, а так пусть тулят, что хотят?

← →
KEBZ (2006-09-20 22:49) [2]

а где инфу мона взять по OnKeyDown?

← →
Virgo_Style © (2006-09-20 23:32) [3]

А где искал?

← →
KEBZ (2006-09-20 23:45) [4]

в яндаксе

← →
KEBZ (2006-09-20 23:47) [5]

а через
for i := 1 to 4 do не палучется?

← →
Германн © (2006-09-21 01:32) [6]

> KEBZ (20.09.06 23:47) [5]
>
> а через
> for
> i := 1 to 4 do не палучется?
>

Кончай клоунаду. Надоело.

← →
Leonid Troyanovsky © (2006-09-21 09:23) [7]

> KEBZ (20.09.06 21:55)

> Как сделать защиту от некорректного ввода символов в TEdit
> нуна вводить цифры от [0..4]

Для этой цели пользуют не TEdit, а TComboBox, TListBox, TUpDown
или, даже, TGroupBox.

--
Regards, LVT.

← →
MacroDenS © (2006-09-21 09:32) [8]

OnKeyPress
begin ... if not(key in ["0".."4"]) then key:=#0; ... end;

только незабудь еще поставить #8 и #9, а то бекспейс и таб перестанут работать в TEdit:
if not(key in ["0".."4", #8, #9]) then key:=#0;

на OnChange обработка по другому будет выглядить.

примерно так:
var i:Integer; tmp, tmp1:String; begin tmp:=Edit1.Text; tmp1:=""; for i:=1 to length(tmp) do if (tmp[i] in ["0".."4"]) then tmp1:=tmp1+tmp[i]; edit1.Text:=tmp1; //переводим курсор в конец текста sendmessage(edit1.Handle, 256, vk_end, 0); sendmessage(edit1.Handle, 257, vk_end, 0); end;

Корректный ввод Найти похожие ветки