23.12.2009, 20:39
|
|
Познающий
Регистрация: 03.12.2008
Сообщений: 56
Провел на форуме:
140714
Репутация:
29
|
|
Сообщение от 0ldbi4
Доброго времени
Делаю фильтрацию поля ввода на числа, отфильтровал по аски кодам числа, еще возник вопрос какая запятая используется там их 2 или 3 и одна из них не численная какую фильтровать??
Или может более рациональное решение подскажите
Что ж так сложно то... Так не проще?
Код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9',',',#8:;
else
Key := #0;
end;
end;
|
|
|