delphi edit 固定小数位数的实现(形如：1,000,000.10)

procedure Tfrm_jz.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if (key in ['0'..'9',#8,#13]) then
      begin
       if key=#13 then
          begin
             if length(edit1.Text)>2 then
                edit1.Text:=copy(edit1.Text ,1,(length(edit1.Text)-2))+'.'+copy(edit1.Text ,(length(edit1.Text)-1),2)  ;
             if length(edit1.Text)=2 then
                edit1.Text:='0.'+edit1.Text;
             if length(edit1.Text)=1 then
                edit1.Text:='0.0'+edit1.Text;
             edit2.SetFocus;
          end
      end
   else
      key:=#0;
end;

 

 

delphi edit 固定小数位数的实现方法的改进
－－－－－－－－－－－－－－－－－－－－－－－－
procedure Tfrm_jz.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if (key in ['0'..'9',#46,#13]) then
      begin
       if (SubStrConut(Edit1.Text,'.')=1) and (key in [#46]) then
             key:=#0;
       if key=#13 then
          begin
          if (pos(',',edit1.text)=0) and (edit1.text<>'') then
             edit1.Text:=formatfloat('#,##0.00',strtofloat(edit1.Text));
          edit2.SetFocus;
          end;
      end
   else if key in [#8]  then
      edit1.text:=''
   else
      key:=#0;
end;

 

delphi edit 固定小数位数的实现方法的改进(解决无法输入负数的问题)
－－－－－－－－－－－－－－－－－－－－－－－－

procedure Tfrm_jz.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if (key in ['0'..'9',#45,#46,#13]) then
      begin
       if (SubStrConut(Edit1.Text,'.')=1) and (key in [#46]) then
             key:=#0;
       if (SubStrConut(Edit1.Text,'-')=1) and (key in [#45]) then
             key:=#0;
       if key=#13 then
          begin
          if (pos(',',edit1.text)=0) and (edit1.text<>'') then
             if (pos('-',edit1.text)=0) or (pos('-',edit1.text)=1) then
             begin
                edit1.Text:=formatfloat('#,##0.00',strtofloat(edit1.Text));
                edit2.SetFocus;
             end;
          end;
      end
   else if key in [#8]  then
      edit1.text:=''
   else
      key:=#0;
end;