财务软件版1楼: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [＇＇0＇＇..＇＇9＇＇,#8,#46]) then key:=#0;
end;
我欲在某个文本框内输入整数，不包括小数点＇＇.＇＇，但在输入时却发现不妥，难道[＇＇0＇＇..＇＇9＇＇]包含了＇＇.＇＇？

2楼: 可是我改成这样了，还是能输入小数点：
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [＇＇0＇＇,＇＇1＇＇,＇＇2＇＇,＇＇3＇＇,＇＇4＇＇,＇＇5＇＇,＇＇6＇＇,＇＇7＇＇,＇＇8＇＇,＇＇9＇＇,#8,#46]) then
key:=#0;
end;
把我这个新手弄糊涂了。 如什么记账软件

3楼: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in [＇＇0＇＇..＇＇9＇＇,#8,#13]) then
key:=#0;
end;
我试了，没有问题阿

4楼: if not ((Key in [＇＇0＇＇..＇＇9＇＇]) or (Key=＇＇.＇＇) or (Key=#8)) then
Key:=#0;

5楼: #46就是“.”

6楼: 我还是喜欢这种方式，最适合整数了：

Form OnCreate写

SetWindowLong(Edit1.Handle, GWL_STYLE,
GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);

财务软件版7楼: #46 就是 ‘.’ 啊 ~~~
把 #46 去掉就好了~~

8楼: [:)]

9楼: smithcouple的方式是最好的。楼主可以试试.