Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Mask [D7]

ORMADA © (2004-07-09 11:27:00)
Всем привет!
Люди кто юзал маски подскажите плиз как сделать ввод дробного числа
делал такую маску '999,9'
если ввожу
п1. число усё намано
п2. ',' встаёт на дробную часть как и надо
п3. число усё намано
потом материться что не дробное число
как быть ?

Amoeba (2004-07-09 13:58:00) [1]
А чему у тебя равен DecimalSeparator? '.' или ';'?

Zabludshiy (2004-07-09 13:40:00) [2]
Я лично делал так:

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;

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

ORMADA (2004-07-09 12:11:00) [3]
млин ну чё маски чтоль нихто в жисти не юзал ?

ORMADA (2004-07-09 11:32:00) [4]
2 Anatoly Podgoretsky а с дробными как быть ?

Anatoly Podgoretsky (2004-07-09 11:28:00) [5]
Это маска для целых чисел

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »