原代码:
if not (Key in ['0'..'9', #8]) then
begin
MessageBeep(0);
end;
编译提示:
W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.
解决方法:
if not CharInSet(Key, ['0'..'9', #8]) then
begin
MessageBeep(0);
end;