edit [D7, WinXP]
проходящий мимо © (2004-10-31 09:38:00)
Вопрос такой в Edit вводится строка которая может содержат
числ, знаки + * и (). Как проверить что введены именно такие
символы. В случае некорректного ввода, символы не входящие в
допустимые окрашиваются в красный цвет
Torin (2004-10-31 09:57:00) [1]
Насчёт окрашивания не знаю, а проверить можно так:
for i := 1 to Length(Edit1.Text) do
if not ( Edit1.Text[i]
in['A'..'Z','a'..'z','1'..'2','*','(',')'] ) then
begin
//Код ввыполняемый в случае некорректного символа
end;
Наверх 
ЧАТ |
Орешник |
|
