простая процедура 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 естественно). Почему же не с рабатывает со всех конструкцией???