[wees]

простая процедура Edit1KeyPress.

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
s: string;
n: integer;
begin
s:=Edit1.Text;
n:=length (s);
if (n>5) or (key<>(#8)) or (key<>('0')) or (key<>('1')) or (key<>('2')) or
(key<>('3')) or (key<>('4')) or (key<>('5')) or
(key<>('6')) or (key<>('7')) or  (key<>('8')) Or
 (key<>('9')) then Key:=Chr(0) 
end;

Admin: Пользуемся тегами!

проблема с конструкцие if - or -...-or then.
поле Edit по просту отказывается распозновать любой символ, но стоит свести if до проверки одного key она сразу работает (по этому key естественно). Почему же не с рабатывает со всех конструкцией???

[Yurk@]

1. Тема создана не в том разделе.
2. Мне кажеться так будет проще:
в свойствах твоего Edit установить свойство MaxLength=5, а обработчике:

Код:

case Key of
'0'..'9',#8:;
else Key:=#0
end;