Главная страница
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.055 c
9-1080207016
GrayFace
2004-03-25 12:30
2004.07.25
Преимущества DirectX перед Canvas + TBitmap.ScanLine


14-1089358251
}|{yk
2004-07-09 11:30
2004.07.25
Как думаете, это глюк Firebird?


6-1085294026
FireMan_Alexey
2004-05-23 10:33
2004.07.25
Socket -> Thread


3-1088127214
Dim!S
2004-06-25 05:33
2004.07.25
Фильтрация связанных таблиц


14-1088737014
OlegEm
2004-07-02 06:56
2004.07.25
D3 дистрибут