Разрешить вводить в edit только числа

Posted by Chas under Delphi

у меня есть массив, вводить в него нужно только числа, как сделать что бы при вводе буквы выдавало ошибку ?

_SERGEYX_
Из всех подобных процедур мне больше нравится эта…
1. Не даст поставить разделитель до ввода первого символа.
2. Заменит точку или запятую на decimalseparator, установленный в региональных настройках винды.
3. Не даст записать лишние цифры после разделителя.

procedure TAddForm.Edit1KeyPress(Sender: TObject; var Key: Char);

var vrPos, vrLength, vrSelStart: byte;

const

  I: byte = 1; //К-во знаков после запятой - 2 знака

begin

  with Sender as TEdit do

  begin

    vrLength := Length(Text);

    vrPos := Pos(decimalseparator, Text);

    vrSelStart := SelStart;

  end;

  case Key of

    '0'..'9':

      begin

        if (vrPos > 0) and (vrLength - vrPos > I) and (vrSelStart >= vrPos) then

          Key := #0;

      end;

    ',', '.':

      begin

        if (vrPos > 0) or (vrSelStart = 0) or (vrLength = 0) then

          Key := #0

        else

          Key := decimalseparator;

      end;

    #8: ;

  else

    Key := #0;

  end;

тема на форуме

Похожие статьи

• Как фильтровать preg_match
• Включить button при вводе данных в edit
• Как в StringGrid в определённом столбце сделать ввод данных по маске?