Ограничения для Edit'а

[ZdSaliery]

Добрый день! Подскажите пожалуйста - есть два едита: в первый нужно вводить только цифры от 0 до 3, а во второй только целые числа. Как это возможно реализовать!

[was3110]

В обработчике события KeyPress читаете код нажатой клавиши клавиатуры, а дальше пишите проверочные условия... Если символ не допустим, то стираете его (отменяете его вывод в едит)

[ATL]

Было бы хорошо ещё назвать язык. Edit'ы есть везде.
Delphi

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

[ZdSaliery]

Да, делфи. Спасибо большое! Но сейчас проверил - не работает =( Процедуры поставил в самом верху текста - но как то он не реагирует - че хочу то и ввожу

procedure TForm1.Edit32KeyPress(Sender: TObject );
var Key: Char ;
begin
  if not (Key in ['0'..'9', #8,#46])then Key:=#0;
end;

procedure TForm1.Edit30KeyPress(Sender: TObject);
var
   Key:Char;
begin
  if not(key in ['0'..'3',#8,#46]) then key:=#0;
end;

[type_Oleg]

ZdSaliery, я не понял, как это вам удалось так " доработать " процедуру-обработчик - удалить var Key: Char из списка аргументов и вставить куда не надо.

Так, как написал ALT, все работает. И если '0..3' - тоже, только 0,1,2,3 вводится.

[ZdSaliery]

ну да, но по другому дебагер выдает кучу ошибок

[Error] Unit_s.pas(298): Undeclared identifier: 'Edit32KeyPress'
[Error] Unit_s.pas(298): ';' expected but '(' found
[Error] Unit_s.pas(300): Undeclared identifier: 'Key'
[Error] Unit_s.pas(303): Undeclared identifier: 'Edit30KeyPress'
[Error] Unit_s.pas(303): ';' expected but '(' found
[Error] Unit_s.pas(305): Undeclared identifier: 'key'
[Error] Unit_s.pas(413): Undeclared identifier: 'Edit30KeyPress'
[Error] Unit_s.pas(731): Undeclared identifier: 'Edit32KeyPress'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit_s.pas'

Я очень туплю наверное ?(

[type_Oleg]

Вы как делаете ? У вас есть такой Edit32, или вы сами такой придумали?
Объясняю по шагам:
У меня один Edit - называется Edit1, у вас - не знаю какой.
Тык на Edit1, тык на События(Events),тык, тык-тык на ObKeyPress, и в procedure TForm1.Edit1KeyPress(Sender: TObject;var Key: Char ); между begin .. end вставить

if not (Key in ['0'..'3', #8,#46])then Key:=#0;

И все

[ZdSaliery]

type_Oleg спасибо огромаднейшее :D особенно за тык-тык :D два дня не спал, извините, еще раз за тупости :D

Все сделал, все получилось! Спасибо можно закрывать!

[type_Oleg]

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

.. как отучить его вводить точку?

Уберите #46 - это код точки.

[Arigato]

Для чисел проще использовать TSpinEdit.