如何格式化实数

Question

我想格式化输出一个实数只带2位小数，怎么做？

Answer 1

 看delphi(pascal)的帮助, 看不懂英文找中文的看, 看不懂中文, 再找人教汉语拼音... 还不行就找我: 我一刀劈你成1.23块

Answer 2

Text := Format('%.2f', [1.23456]);

Answer 3

procedure TForm1.Button2Click(Sender: TObject);
begin
 edit1.Text :=formatfloat(',####.##', 1212211.26587);
end;

Answer 4

var
  V: Double;
begin
  if V < 0 then
    V:= Trunc(X * 100- 0.5) / 100
  else
    V:= Trunc(X * 100+ 0.5) / 100;
end;