Как можно сделать, чтобы 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+ за такую массивную прогу и не светит
Заранее благодарен, Лунтик
