如何把edit中的数字在用户输入完后自动加上小数位 如输入10 输入完后自动变成￥10.00

Question

var
  s : String ;
begin
   s :=edit1.text;
   delete(s,pos('￥',s),length('￥'));
  edit1.text:= trim(Format('￥%.2f', [strtofloat(s)]));
end;

Answer 1

procedure TForm1.Edit1Exit(Sender: TObject);
var
  s : String ;
begin
   s :=edit1.text;
   delete(s,pos('￥',s),length('￥'));
  edit1.text:= trim(Format('￥%.2f', [strtofloat(s)]));
end;

Answer 2

procedure TForm1.Edit1Exit(Sender: TObject);
var
  s : String ;
begin
   s :=edit1.text;
   delete(s,pos('￥',s),length('￥'));
  edit1.text:= trim(Format('￥%.2f', [strtofloat(s)]));
end;

Answer 3

procedure TForm1.Edit1Exit(Sender: TObject);
var
  s : String ;
begin
   s :=edit1.text;
   delete(s,pos('￥',s),length('￥'));
  edit1.text:= trim(Format('￥%.2f', [strtofloat(s)]));
end;

Answer 4

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  edit1.Text:=formatfloat('0.00',strtofloat(edit1.Text));
end;

Answer 5

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  edit1.Text:=formatfloat('0.00',strtofloat(edit1.Text));
end;

Answer 6

Edit1.Text:=FormatFloat('￥0.00',StrToFloat(Edit1.Text));

Answer 7

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  edit1.Text:=formatfloat('0.00',strtofloat(edit1.Text));
end;

Answer 8

edit1.text:=FormatFloat('￥0.00',StrToFloat(edit1.text))
试试这句话。

Answer 9

var i:int;
i:=10;
Edit1.Text:=FormatFloat('￥0.00',10);

Answer 10

在table 中设置 displayformat 为 #.00

Answer 11

在table的字段中把要设置的字段的 displayformat 为 #.00