Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c