delphi 小写钱币转换大写

edit KeyPress事件里
if not (key in ['0'..'9',#08]) then key:=#0;

这样就不可以输入-，跟.号

也就是说指定了edit的输入范围

这些问题最好在网上搜索控件，直接调用解决哦。

输入不了负号与小数点 = 变量类型设置不对

如果没有现成控件，就用普通的Edit控件，然后判断asc值