|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите разобраться с MaskEdit
У меня на форме присутствует MaskEdit. Мне нужно написать код, чтоб при нажатии на кнопку проверялось: если в MaskEdit ничего не введено, то выдается соответствующая ошибка, если в MaskEdit введено меньше 16 цифр, то выдается соответствующая ошибка, а если всё нормально тоесть введено 16 цифр, то программа продолжает работать дальше по своему коду. Так же мне нужно сделать так, чтобы в MaskEdit вводились только цифры. Пожалуйста помогите!!! Мой адрес: x-shaman-x@bk.ru
|
#2
|
||||
|
||||
if length(MaskEdit1.Text)=0 then
begin showmessage('Не введено ни одного символа'); end else if (length(MaskEdit1.Text)>0) and (length(MaskEdit1.Text)<16) then showmessage('Недостаточное кол-во символов') else if length(MaskEdit1.Text)=16 then begin //Делай что нужно end; Кому я должен - всем прощаю!!!! Последний раз редактировалось <<D>>, 20.07.2007 в 00:08. |
#3
|
||||
|
||||
Код:
begin if Length(Edit1.Text) <> 16 then begin MessageBox(0,'ERROR',0,0); end else begin // делаем, что хотим end; end; THE CRACKER IS OUT THERE |
#4
|
|||
|
|||
Спасибо
Спасибо, а как сделать, чтобы в MaskEdit только цифры вводились?
|
#5
|
||||
|
||||
Можно вот так:
MaskEdit1.editMask:='################'; но определять кол-во букв оно не будет Кому я должен - всем прощаю!!!! |
#6
|
||||
|
||||
Уважаемый Шаман, пожалуйста, не делайте больше одинаковых топиков, т.к. это не культурно и не этично . Если каждый начнет плодить одинаковые топики, то так весь форум превратится в неструктурированную помойку Ничего личного, я понимаю, что Вы наверняка это сделали не специально, лишь полезный совет.
А на счет только цифр - советую обрабатывать событие OnKeyPress и, в случае, если введена не цифра, то не позволять этому символу появиться в едитбоксе не выдавая никаких сообщеий и beep'ов... Код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if ((UpCase(Key) < 'A') or (UpCase(Key) > 'Z')) then Key := #0; // переделайте под цифры end; THE CRACKER IS OUT THERE |
#7
|
|||
|
|||
Код:
procedure TForm14.EditKeyPress(Sender: TObject; var Key: Char); begin If not (Key in [#8, #22, '0'..'9']) Then Key := #0; end; Использование: Код:
procedure TForm1.FormCreate(Sender: TObject); begin .............. MaskEdit1.OnKeyPress:=EditKeyPress; .............. end; |