Ввод только цифр и точки в edit

above92

if Key in ['0'..'9'] then key :=#0; //ввод букв и символов
 
if not(key in['0'..'9',#8])then key:=#0;  //ввод только цифр
 
if not(key in['А'..'Я','0'..'9','а'..'я',#8])then key:=#0;  //ввод всего кроме символов
а как запретить ввод всех символов кроме цифр и точки?
3 ответа

above92

Очень трудно было догадаться
if not (key in['0'..'9',#8,'.']) then key:=#0; //ввод только цифр и точки


above92

в dbedit не работает


above92

потому что в DBEdit данные берутся из DataSource в него вообще лучше не вводить и лучше не использоватьбери обычный Edit