Ввод только букв или цифр...

[Teleport]

как организовать в редакторе Edit ввод только букв?
А как только цифр?

[puporev]

Вот пример как разрешается только ввод цифр, знака "-" и разделителя.
Аналогично можно разрешить ввод только букв или еще чего-нибудь.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
  #8,'0'..'9' :  ; // цифры и <Back Space>
       '.',',':    // разделитель целой и дробной частей числа
                begin
                  if Key <> DecimalSeparator then
                  Key := DecimalSeparator; // заменим разделитель на допустимый
                  if Pos(DecimalSeparator,Edit1.text) <> 0
                  then Key := Chr(0); // запрет ввода второго разделителя
                end;
           '-':    // минус можно ввести только первым символом,
                // т.е. когда ячейка пустая
                if Length(Edit1.text) <> 0
                      then Key := Chr(0);
             else   // остальные символы запрещены
               key := Chr(0);
    end;
end;

[Stilet]

А как только цифр?

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in ['0'..'9'] then key:=#0;
end;

А только букв - отрицание из этого условия, или конкретно там границы алфавитов пропиши.

[Teleport]

попробую разобраться - спасибо)))))

[Teleport]

2 Stilet а границы алфавитов - это A..z ??

[Stilet]

Да. Да. Да.

[Teleport]

2 Stilet
))))))))) понял все, спасибо)))

[puporev]

Точнее 'A'..'z','А'..'я','Ё','ё'

[Teleport]

2 puporev даже так))) хм...
буду знать теперь))) спасиб)))