delphi中Tedit输入金额数字

Delphi编辑框数字输入限制

最新推荐文章于 2023-01-05 09:06:37 发布

原创最新推荐文章于 2023-01-05 09:06:37 发布 · 2.7k 阅读

2 ·

CC 4.0 BY-SA版权

Delphi 专栏收录该内容

79 篇文章

订阅专栏

本文介绍了一个Delphi程序中实现对编辑框输入的精确控制的方法，包括仅允许输入数字、小数点及负号，并对这些符号的使用进行了严格的限制。例如，小数点前只能输入一个零，且只能在第二个位置开始；负号只能出现在首位。

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;