rt
解决方案 »
- ★送分帖,请 dabaicai、xianggang101、xiaokexinger三位朋友进入★
- 暑假在家实在无聊,于是就写了这套程序<<藏经阁>>,谢谢给我赏脸过目.100分相送.
- 一个很菜的问题
- 有没有压缩率高一点的压缩控件或者函数? Abrravia 的压缩率不高啊。。。
- 请问有什么软件可以测试服务端的承受能力?
- Apache WebService 的发布问题,除了需要在conf中加载模块还要什么
- 数据集的数据如何从另一个数据集获得?
- 如何使用DLL中的公共变量
- 有谁知道delphi5开发人员指南,请把出版社,定价,等一些详细资料说以下,我要买的?谢谢 了
- 一个MASTER/DETAIL的奇怪问题
- delphi中怎样用ping命令来测试网络是否通的
- 如何把一个串“123456789.12”分割为‘123456789’和‘.12’?
begin
if not (key in ['0'..'9','.',#8]) then key:=#0;
end;
不是浮点数
procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9','.',#8]) then key:=#0;
end;
如果输入两个小数点出错了啊。