[Aleks N.]

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

[Alegun]

Для эдита

Код:

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

[M.A.D.M.A.N.]

Есть ф-я CharInSet.

[Alegun]

Её в семёрке нет

[Aleks N.]

Спасибо, но это немного не то что нужно. Если бы была задача перевода чисел только из одной системы в любую другую, то выше написанное помогло, но у меня их намного больше. Так что не знаю, придется делать отдельные поля для других систем? Программа же не может распознать сразу в какую и из какой системы будет производиться перевод.

[Alegun]

Вопрос ведь был про ограничение. Просто добавьте в квадратные скобки через запятую нужное, напр.
,'A','B','C','D' ,#8 (бекспейс) etc.

З.Ы. Посмотрите как организован системный калькулятор, там выбор необходимой системы счисления производится через радиобаттоны, самое лучшее пойти по такому же пути, тогда в зависимости от выбора можно менять условие фильтра при вводе, одного поля вполне достаточно

[Aleks N.]

Спасибо, разобрался, через KeyPress реализовал.