freepascal.ru

Добавлено: **21.01.2014 16:19:22**

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

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

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

Добавлено: **21.01.2014 18:16:04**

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

В поле чего? :shock:

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

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

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

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

Добавлено: **21.01.2014 20:27:05**

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

Добавлено: **21.01.2014 20:49:32**

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

Case Key of...