|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Ограничение вводимого в Edit
Как сделать ввод в эдит ТОЛЬКО цыфр И запятой!
Только цыфры получилось а вот запятую к ним приделать ну никак немагу (( Код:
if(Key<'0') or (Key>'9') then Key:=#0; вобщем нужно элементы вещественного типа (real). Вот... помогите пожалуста |
#2
|
||||
|
||||
Код:
if not (Key in ['0'..'9', DecimalSeparator, Chr(8)]) then Key:=#0; Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#3
|
||||
|
||||
Код:
case Key of '0'..'9',#44 :; //#44 - запятая else Key:=#0; end; Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
Последний раз редактировалось Yurk@, 13.02.2008 в 14:22. |
#4
|
|||
|
|||
Спасибо большое! Программеры!
Юра.. йа решил взять сначало твою команду, НО у тя это не запятая) а точка) Последний раз редактировалось DeSoLaToR, 13.02.2008 в 12:05. |