判断字符？发出响声？

Question

1.请问一下，在delphil6重有没有这样一个函数，可以判断用户的输入是不是0－9的数字或A－Z的字母，不区分大小写，只要满足两者中的一种就返回true。2.在delphil中当某个特殊时间被触发时如何发出一种响声提醒用户？

Answer 1

1 声名两个字符串  0－9   A－Z   然后判断 是不是在里面  用 in 也可以
2 messagebeep(0)

Answer 2

beep()
数字和字母，你可以用ord(chr)来判断ASCII的范围来确定

Answer 3

if not (uppercase(chr) in ['0'..'9']) then
   beep;

Answer 4

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key IN ['0' .. '9','a' .. 'z'] then .......
end;

Answer 5

if (chr in ['0'..'9']) or (uppercase(chr) in ['A'..'Z'])  then
  Rsult := True
else
  Result := False;
beep or MessageBeep都可以

Answer 6

为什么我用了beep程序运行的时候是运行了这行代码的，但就是没有声音呢？我的计算机是有 声卡而且有内置的音箱的啊，我都能听歌的。到底是什么地方错了，麻烦各位大侠指点一下。我等着急用。

Answer 7

你看看beep()到底执行没有，（设断点）