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

Вниз

Ввод в MaskEdit   Найти похожие ветки 

 
RomanH ©   (2006-03-20 11:03) [0]

Доброе утро мастера. Имеется маска (000;0;)  в MaskEdit.Как программно ограничить ввод именно трехзначного числа т.е. в обработчике события MaskEditExit сообщить ошибку
Application.MessageBox("Введите трехзначное число.",
           "Ошибка ввода",MB_ICONERROR+MB_OK);
if length(MaskEdit1.Text)<9 then так не получается заранее благодарен


 
Leonid Troyanovsky ©   (2006-03-20 11:31) [1]


> RomanH ©   (20.03.06 11:03)  

> if length(MaskEdit1.Text)<9 then так не получается заранее
> благодарен


А почему 9, если уж оно трехзначное?
Для проверки можно попытаться преобразовать его к целому.
Хотя, такая проверка делается самим TMaskEdit и если
не введены все три цифры, то возбуждается исключение (EDBEditError)
Invalid input value. Use escape key to abandon changes.

--
Regards, LVT.


 
XeON ©   (2006-03-21 01:09) [2]

Попробуй поставить значение MaxLength в 3. А потом в каком-нибудь Button1 пишешь процедуру проверки:

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
try
i:=StrToInt(MaskEdit1.Text);
if i<100 then ShowMessage("Введите трёхзначное число");
except
ShowMessage("Введите трёхзначное число");
end;

end;

Вот тебе полнейший ответ на твой вопрос. Можно ещё сделать проверку на то, что бы число не было больше 999. Но т.к. длина вводимого текста ограничена 3 символами - больше чем 999 ввести не получиться!

Будут вопросы - пиши на мыло. (оно указанно в анкете).


 
Leonid Troyanovsky ©   (2006-03-21 08:25) [3]


> XeON ©   (21.03.06 01:09) [2]

> Вот тебе полнейший ответ на твой вопрос.


Конечно же, нет.
Полный ответ предусматривал бы обработку EDBEditError.
См., например,

http://groups.google.com/group/fido7.ru.delphi.chainik/msg/61581e447c1a19ba

--
Regards, LVT.



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

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

Наверх




Память: 0.47 MB
Время: 0.027 c
1-1140966331
DR0N
2006-02-26 18:05
2006.04.02
Как сделать что бы форма меняла размеры проаорционально?


2-1142527873
Ossetic
2006-03-16 19:51
2006.04.02
DBComboBox - как внести значения из базы?


3-1139303307
salexn
2006-02-07 12:08
2006.04.02
Формат даты в Interbase Yaffil


2-1142927487
hjkghjlghjkl
2006-03-21 10:51
2006.04.02
Кодировка


2-1142475814
tigra
2006-03-16 05:23
2006.04.02
DBGrid