rt...
解决方案 »
- 关于读取文本文件
- ClientDataSet1.FieldByName('ddzp').Value这样给一个字段附值时保存不了数据,不知为什么?
- 为什么选时窗体会闪一下,
- 唤醒已存在的线程:(
- 如何在KeyDown事件中判断 up 或 down 这两 个键??????????
- ★送分问题★fastREPORT做的报表如何设设置表格线???????
- 连接数据库问题!
- 怎么隐藏Mainnemu和Popupmenu?
- 各位近来看看,请问这样的报表如何做???????????????????????????????
- 一个简单的问题,帮帮忙。
- 为什么我的DBGRID不能修改数据啊????
- 请教大家类定义的问题?
if (char>48 and char<57) or (char>64 and char<102) then嘿嘿,大体上是吧!记不太清了
只输入数字:
if not (key in ['0'..'9']) then
key:=#0;
只输入英文:
if not ((key in ['a'..'z']) or (key in ['A','Z'])) then
key;=#0;
function LeachSpacebar(key:char):char;
begin if ord(key)= 32 then key:=#0; result:=key;end;用到ord()函数,其他的自己琢磨一下,说多了就没意思了