delphi中Tedit输入金额数字
来源:互联网 发布:二维码算法 编辑:程序博客网 时间:2024/06/06 03:03
procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: Char); //控制edit1的输入数字
var
p:Integer;
begin
//限制只能输入数字,小数点,负号
if not (Key in ['0'..'9', '.','-',#8, #13]) then
begin
Key := #0;
end;
//如果是小数,小数点前面只能输入一个零
if key = '0' then
begin
if (LeftStr(Edit1.Text,1) ='-') and (MidStr(Edit1.Text,2,1) = '0') and (Length(Edit1.Text) = 2) then
begin
Key:=#0;
end
//如果第一位是零,则零只能输入一次
else if (LeftStr(Edit1.Text,1) = '0') and (Length(Edit1.Text) = 1) then
begin
Key:=#0;
end
end
//限制只能输入一个小数点,且只能在第二个位置开始
else if Key = '.' then
begin
if Edit1.SelStart = 0 then
Key := #0;
p := Pos('.', Edit1.Text);
if p > 0 then
Key := #0;
end
//限制只能在第一个,且只能输入一个负号
else if Key = '-' then
begin
if Edit1.SelStart > 0 then
Key := #0;
p := Pos('-', Edit1.Text);
if p > 0 then Key := #0;
end;
end;
var
p:Integer;
begin
//限制只能输入数字,小数点,负号
if not (Key in ['0'..'9', '.','-',#8, #13]) then
begin
Key := #0;
end;
//如果是小数,小数点前面只能输入一个零
if key = '0' then
begin
if (LeftStr(Edit1.Text,1) ='-') and (MidStr(Edit1.Text,2,1) = '0') and (Length(Edit1.Text) = 2) then
begin
Key:=#0;
end
//如果第一位是零,则零只能输入一次
else if (LeftStr(Edit1.Text,1) = '0') and (Length(Edit1.Text) = 1) then
begin
Key:=#0;
end
end
//限制只能输入一个小数点,且只能在第二个位置开始
else if Key = '.' then
begin
if Edit1.SelStart = 0 then
Key := #0;
p := Pos('.', Edit1.Text);
if p > 0 then
Key := #0;
end
//限制只能在第一个,且只能输入一个负号
else if Key = '-' then
begin
if Edit1.SelStart > 0 then
Key := #0;
p := Pos('-', Edit1.Text);
if p > 0 then Key := #0;
end;
end;
- delphi中Tedit输入金额数字
- Delphi中限制文本框(TEdit)只能输入数字
- TEdit中限制只能输入"."或数字
- Delphi中限制文本框(TEdit)只能输入小数
- Delphi 应用集合在TEdit 中输入限定的字符
- 使TEdit只接受数字输入
- 限制TEdit 内只能输入数字
- BCB TEdit组件限制输入数字
- 使TEdit只接受数字输入
- Delphi中如何让TEdit编辑框控件从右边开始输入数据呢?
- Tedit中输入只允许数字和防止多个小数点的办法
- 限制TEdit控件只能输入数字,小数点和负号
- Delphi中设置Edit只能输入数字
- Delphi中数字输入限制方法
- 在Delphi XE5 FireMonkey中设置TEdit中的光标位置
- TEdit只能输入数据
- Delphi中将小写数字金额转成大写金额
- delphi限定数字输入
- ORA-00742 ORA-00312特殊恢复
- dllmain中不能创建线程
- 行为型模式-----备忘录模式(Memento)
- leetcode-13:Roman to Integer
- 关于IOCP的探讨
- delphi中Tedit输入金额数字
- 动态绑定Gridview带模板列
- java 生成EXCEL 解决中文乱码问题(只供自己后面寻找方便)【转载悠悠的BOLG】
- 谈谈IOCP发送数据时的一些误区及技巧
- 关于asp网页制作的整理
- stdio.h及cstdio的区别
- oracle表连接的方式
- 微软收购诺基亚设备与服务部门,总价72亿美元
- 在某培训机构的听课笔记