[Лунтик-Некрофил]

Как можно сделать, чтобы Edit не писал определённые символы? Например мне надо сделать чтобы в Edit можно было писать только цифирные знаки, а все остальные удалялись.
Как я это сделал:

Код:

const Ex : set of ansichar = [тут приходится перебирать все знаки кроме цифер]; 
var i : integer;
begin

  for i := 1 to length(edit1.text) do
    if edit1.text[i] in Ex then begin
        ShowMessage('Неверное число');
        Edit1.text:=''; end;

Подскажите пожалуйста, как можно облегчить работу? Иначе 5+ за такую массивную прогу и не светит
Заранее благодарен, Лунтик

[lmikle]

Код:

procedure TForm1.Edit1KeyPress(Sender : TObject; var Key : Char)
begin
  If Not (Key In ['0'..'9']) Then Key := #0;
end;

пропустит только цифры.

[Лунтик-Некрофил]

Спасибо, попробуем=)

[Yurk@]

в событии OnKeyPress твоего Edit:

Код:

case Key of 
'1'..'9' :;
else Key:=#0
end;

[DungeonLords]

Hi all!

Открываю старую тему чтобы испросить решения проблемы. Есть Edit1, в него записываются программой некие значения ('!!!!!!') при этом, если пользователь нажмёт "f", "g" или др. клавишу, она введётся в этот Edit. Как избавится от этого?

Кстати, если Enabled:=False, то этого не происходит, но цвет шрифта становится серым. Мне нужно красным.

[ApxaHGe1]

ReadOnly:=True ?

[DungeonLords]

спасибо большое.