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;

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

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

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