通过设置maskedit实现小数位的输入控制

最新推荐文章于 2017-09-27 22:20:52 发布

皮卡

最新推荐文章于 2017-09-27 22:20:52 发布

阅读量1.6k

点赞数

分类专栏： delphi 文章标签： integer

本文链接：https://blog.csdn.net/chenfujun123/article/details/7070110

版权

5 篇文章

订阅专栏

本文介绍如何在Delphi中使用MaskEdit控件来创建一个金额输入框，该输入框能够确保用户输入的数值格式正确，并且在退出编辑状态时自动调整数值的小数部分至固定格式。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//首先设置maskedit的格式为:'!9999.99;1; ';  //最后一个分号后有一个空格

//或者在maskedit1enter过程中加入.

procedure TForm1.MaskEdit1Enter(Sender: TObject);

begin

(sender as Tmaskedit).EditMask:='!9999.99;1; ';  //最后一个分号后有一个空格

end;

//然后在每个MASKEDIT控件的EXIT事件处加入以下过程,其余的MASKEDIT都调用maskedit1exit过程即可.

procedure TForm1.MaskEdit1Exit(Sender: TObject);

var

n:integer;     //用于判断小数后的位数

str1:string;

begin

str1:=StringReplace((sender as Tmaskedit).text,' ','',[rfReplaceAll]);

(sender as Tmaskedit).text:=str1;

n:=length(str1)-pos('.',str1);

  case n of

  0: (sender as Tmaskedit).text:=(sender as Tmaskedit).text+'00';  //不够两位末尾补0

  1: (sender as Tmaskedit).text:=(sender as Tmaskedit).text+'0';

  end;

end;

//本过程是保留两位小数的方法,三位时修改!9999.999,以此类推