[shaman]

У меня на форме присутствует MaskEdit. Мне нужно написать код, чтоб при нажатии на кнопку проверялось: если в MaskEdit ничего не введено, то выдается соответствующая ошибка, если в MaskEdit введено меньше 16 цифр, то выдается соответствующая ошибка, а если всё нормально тоесть введено 16 цифр, то программа продолжает работать дальше по своему коду. Так же мне нужно сделать так, чтобы в MaskEdit вводились только цифры. Пожалуйста помогите!!! Мой адрес: x-shaman-x@bk.ru

[<<D>>]

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>>]

Можно вот так:

MaskEdit1.editMask:='################';

но определять кол-во букв оно не будет

[4kusNick]

Код:

begin

  if Length(Edit1.Text) <> 16 then
  begin
    MessageBox(0,'ERROR',0,0);
  end
  else
  begin

  //  делаем, что хотим

  end;

end;

[shaman]

Спасибо, а как сделать, чтобы в MaskEdit только цифры вводились?

[4kusNick]

Уважаемый Шаман, пожалуйста, не делайте больше одинаковых топиков, т.к. это не культурно и не этично . Если каждый начнет плодить одинаковые топики, то так весь форум превратится в неструктурированную помойку Ничего личного, я понимаю, что Вы наверняка это сделали не специально, лишь полезный совет.

А на счет только цифр - советую обрабатывать событие OnKeyPress и, в случае, если введена не цифра, то не позволять этому символу появиться в едитбоксе не выдавая никаких сообщеий и beep'ов...

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if ((UpCase(Key) < 'A') or (UpCase(Key) > 'Z')) then Key := #0; // переделайте под цифры
end; 

[~ SaM ~]

Код:

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;