[DeSoLaToR]

Как сделать ввод в эдит ТОЛЬКО цыфр И запятой!
Только цыфры получилось а вот запятую к ним приделать ну никак немагу ((

Код:

 if(Key<'0') or (Key>'9') then Key:=#0;

вобщем нужно элементы вещественного типа (real).
Вот...
помогите пожалуста

[The Shadow]

Код:

if not (Key in ['0'..'9', DecimalSeparator, Chr(8)]) then Key:=#0;

[Yurk@]

Код:

case Key of
'0'..'9',#44  :; //#44 - запятая
else
Key:=#0;
end;

[DeSoLaToR]

Спасибо большое! Программеры!
Юра.. йа решил взять сначало твою команду, НО у тя это не запятая) а точка)