delphi小问题

Question

刚学，怎样edit控件的值保留小数点后2位，谢谢

Answer 1

可以自己进行格式化。
如果只是显示数值型，建议用数值控件。
cnpack里面有一个比较好用，可以对输入进行控制，只输入数字、小数点。

Answer 2

procedure TfrmMain.EdtAccountChange(Sender: TObject);
var 
count:double; 
begin 
count:=StrToFloat(formatFloat('.00', StrToFloat(edtAccount)));
edtAccount.text:=Floattostr(count); 
end; 这样编译通不过，能把详细代码写出来吗，谢谢，edit控件保留小数点后2位

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
var
  x: Double;
begin
  ShowMessage(Format('%.2f', [x]));
end;

Answer 4

count:=formatFloat('.00', StrToFloat(edtAccount))
就成了吧

Answer 5

procedure TfrmMain.mnu3_001Click(Sender: TObject);begin
    
  if (frmMain.MDIChildCount >= 1) then exit;
  if not User_Checked then
    exit;  if (not IsCreatedForm('frmW_001')) then //若是尚未开启此画面
    begin
      Application.CreateForm(TfrmW_001,frmW_001); //建立将开启的画面
    end
  else             //此画面先前已开启
    frmW_001.Show; //SHOW出画面
end;
这里面有很多输入框，有数量这一个，如，数量 ：输入框，怎样控制保留小数后3位，谢谢 

Answer 6

count:=formatFloat('.000', StrToFloat(frmW_001.xxx.Text))xxx就是文本框的名字。

Answer 7

打开对应窗体，找到文本框，点击，Object Inspector里会显示名字。

Answer 8

1.你在Form窗体上加个Edit1
2.然后你用鼠标选中Edit1的组建
3.然后在Object Inspector-->Properties-->Name
4.在name对应的输入框中添加你要的名字就可以。