Delphi中数字输入限制方法
来源:互联网 发布:c4d最新版软件下载 编辑:程序博客网 时间:2024/05/23 13:45
1、控制Edit中的输入内容为金钱
在Edit的KeyPress事件中输入以下代码:
procedure Form1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
i:Integer;
begin
if not (Key in [Chr(8), '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', #46]) then
Key := #0;
if key = #46 then
begin
for i := 1 to Length(Edit1.Text) do
begin
if Copy(Edit1.Text, i, 1) = '.' then
key := #0;
end;
end;
end;
2、计算后四舍五入可以使用Roundto函数,但必须引用math单元,如果计算结果是123.457,想要保留小
数点后两位数,可以使用Roundto(123.457,-2),运行后结果显示123.46
在Edit的KeyPress事件中输入以下代码:
procedure Form1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
i:Integer;
begin
if not (Key in [Chr(8), '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', #46]) then
Key := #0;
if key = #46 then
begin
for i := 1 to Length(Edit1.Text) do
begin
if Copy(Edit1.Text, i, 1) = '.' then
key := #0;
end;
end;
end;
2、计算后四舍五入可以使用Roundto函数,但必须引用math单元,如果计算结果是123.457,想要保留小
数点后两位数,可以使用Roundto(123.457,-2),运行后结果显示123.46
0 0
- Delphi中数字输入限制方法
- Delphi中限制文本框(TEdit)只能输入数字
- Delphi Edit限制只能输入数字
- cocos2dx中输入框输入限制数字
- delphi 限制文本框中只接受数字
- 文本框限制只输入数字的方法
- 限制只能输入数字的方法
- js限制只能输入数字的方法
- JTextField限制输入数字的方法
- 限制TextBox中只能输入数字
- 限制文本框中只能输入数字
- TEdit中限制只能输入"."或数字
- winform中限制非数字输入
- C# 中限制只能输入数字
- 限制文本框中只能输入数字
- swt中text限制只输入数字
- 限制文本框中只能输入数字
- Delphi中设置Edit只能输入数字
- [note] 深度学习 tensorflow 笔记(3) cnn 卷积神经网络
- Max Sum hd 1003
- Android安全开发之WebView中的地雷
- 版本控制和版本控制系统的区别
- 段式和页式存储管理试题及答案(整理)
- Delphi中数字输入限制方法
- 《UNIX环境高级编程》七进程环境读书笔记
- poj 2151 Check the difficulty of problems
- 浅谈Android版本控制—SVN
- C语言 strtok函数使用
- 最大连续子序列 hd 1231
- c++ 学习之路 第五天 const理解
- DELPHI中的快捷方式一览(完全正式版)
- C语言11