Сделать ограничение ввода в поле

@Al5Gun · Регистрация: 29.11.2014

Author24 — интернет-сервис помощи студентам

Есть калькулятор перевода чисел из любой системы в любую. Необходимо сделать ограничение на этапе ввода в восьмеричной системе, в поле не должны вводиться 8 и 9. Как это реализовать, возможно ли это, помогите пожалуйста

@!Boroda · 29.11.2014, 19:51

Delphi

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'7',#8]) then
  begin
    ShowMessage('Печаль!');
    key:=#0;
  end;
end;

@Al5Gun 0 / 0 / 0 Регистрация: 29.11.2014 Сообщений: 1
		1
	Сделать ограничение ввода в поле 29.11.2014, 19:06. Показов 1368. Ответов 1 Метки нет (Все метки) Есть калькулятор перевода чисел из любой системы в любую. Необходимо сделать ограничение на этапе ввода в восьмеричной системе, в поле не должны вводиться 8 и 9. Как это реализовать, возможно ли это, помогите пожалуйста 0

	29.11.2014, 19:51

Опции темы

Сделать ограничение ввода в поле

Решение