про код... - Помощь студентам

ара · 08.06.2007, 13:53

Господа, подскажите, пож., что примерно может означать этот код?

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not((key>='0') and (key<='9') or ( key=#8) or (key=#44) or (key=#18)) then key:=Chr(0);
end;

спасибо!

Alex21 · 08.06.2007, 14:10

В компноненте Edit1
Разрешено вводить только цифры и запятую, и пользоваться БэкСпэйсом.

08.06.2007, 14:10	#2
Alex21 With best regards Участник клуба Регистрация: 20.04.2007 Сообщений: 1,448	В компноненте Edit1 Разрешено вводить только цифры и запятую, и пользоваться БэкСпэйсом. Life is too short, play more... Как правильно задавать вопросы

08.06.2007, 13:53	#1
ара Форумчанин Регистрация: 11.04.2007 Сообщений: 106	про код... Господа, подскажите, пож., что примерно может означать этот код? procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not((key>='0') and (key<='9') or ( key=#8) or (key=#44) or (key=#18)) then key:=Chr(0); end; спасибо!