Можно ещё кейсом
Код:
case Key of
'0'..'9', ',', #8 : exit;
else
begin
Key := #0;
MessageBeep (MB_OK);
end;
end;{case}
Оффтоп: странно, но моя делфя 7 на сабжевый код, в смысле на
DecimalSeparator в
in [] не ругается, запустилось без ошибок, может что делаю не так
