freepascal.ru

Хотел запретить ввод в поле символов кроме цифр

Код: Выделить всё

case Key of
'0'..'9', #8

А он выдает ошибку на строчке case Key of
jkh.pas(84,12) Error: Identifier not found "Key"
Что это значит?

merovingen98 писал(а):Хотел запретить ввод в поле символов кроме цифр

В поле чего?
Процедура какая? Текст ее полностью.

Ежели в Edit, DBEdit, то как-то так

Код: Выделить всё

procedure TForm1.DBEdit9KeyPress(Sender: TObject; var Key: char);
begin
  case key of
    '0'..'9',#8 : ;
    else key := chr(0);
  end;

Система, версия лазаря, фпц - в студию....

может идентификатор Key уже используется в классе?
переименуй в aKey или aChar или еще как.

Судя по вопросам ТС в этом форуме - КЛАСС у него максимум .... церковно-приходской