Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.25;
Скачать: CL | DM;

Вниз

Mask   Найти похожие ветки 

 
ORMADA ©   (2004-07-09 11:27) [0]

Всем привет!
Люди кто юзал маски подскажите плиз как сделать ввод дробного числа
делал такую маску "999,9"
если ввожу
п1. число усё намано
п2. "," встаёт на дробную часть как и надо
п3. число усё намано
потом материться что не дробное число
как быть ?


 
Anatoly Podgoretsky ©   (2004-07-09 11:28) [1]

Это маска для целых чисел


 
ORMADA ©   (2004-07-09 11:32) [2]

2 Anatoly Podgoretsky а с дробными как быть ?


 
ORMADA ©   (2004-07-09 12:11) [3]

млин ну чё маски чтоль нихто в жисти не юзал ?


 
Zabludshiy   (2004-07-09 13:40) [4]

Я лично делал так:

procedure TFormInputReal.Edit1KeyPress(Sender: TObject; var Key: Char);
var i,b:integer;
begin
b:=0;
if not ((Key in ["0".."9"]) or (Key = #8) or (Key = ".")) then Key := #0;
for i:=1 to length(edit1.Text) do
 if IsDelimiter(".", edit1.Text, i) then
   b:=i;
if (key = ".")and(b > 0) then
 key:=#0;
end;

Кажись правда потом что-то менял... не помню, проекта под рукой нет.
но это работало.


 
Amoeba ©   (2004-07-09 13:58) [5]

А чему у тебя равен DecimalSeparator? "." или ";"?



Страницы: 1 вся ветка

Текущий архив: 2004.07.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
6-1085374314
aper
2004-05-24 08:51
2004.07.25
как проверить доступна ли сетевая папка.


1-1089603759
Belocarsk
2004-07-12 07:42
2004.07.25
TreeView+картинки ,без ImageList


3-1087338013
Квэнди
2004-06-16 02:20
2004.07.25
проблема с LibMySQL


14-1088759001
Piter
2004-07-02 13:03
2004.07.25
Ура. Я свободен! Словно птица в небесах... :)


11-1077751353
nester
2004-02-26 02:22
2004.07.25
Как обрабатывать сообщения в КОЛ проге, если она без формы.