[doniv]

Сообщение от NIch

Код:

procedure TForm1.Ediе1.KeyPress (Sender: TObject; var Key: Char);
begin
  case Key of
    '0' .. '9', #8: ; // цифры и <Backspace> ничего не делать
  else
    Key := Chr(0); // иначе символ не отображать
  end;
end;

Данный код блокирует нажития всех символов кроме цифр и Backspace...

А можете тут подробнее?
Например, почему подчеркивает TObject, Char и Chr?

Вот ошибки.

[DCC Error] raschet.pas(61): E2037 Declaration of 'Edit1' differs from previous declaration
[DCC Error] raschet.pas(61): E2029 ';' expected but ')' found

Прошу прощения если вопросы покажутся вам нубскими. Для меня действительно важно понимать. Спасибо, что отвечаете