调用

Question

我定义一个函数,可以不让文本宽不输入中文 然后 掉用
可是不取作用?
procedure   selfkeypress(key:Char);
begin
if   (ord(key)<>8) and (ord(key)<>46) and (not (key in ['0'..'9']))  then key:=chr(vk_Clear);
end;procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
selfkeypress(key);
end;

Answer 1

怎样让Edit只能输入中文
http://community.csdn.net/Expert/topic/3663/3663232.xml?temp=.449032

Answer 2

老弟，你这个函数
procedure   selfkeypress(key:Char);
是值传递，所以：
if   (ord(key)<>8) and (ord(key)<>46) and (not (key in ['0'..'9']))  then 
key:=chr(vk_Clear); <<-这里设key不会影响原来的key的值的改成(var key:Char)

Answer 3

procedure selfkeypress(var key:Char);
或者
function selfkeypress(key:Char);