请问各位老大，怎么样才能在浮点运算种只保留两位小数？？？(30分)

请问各位老大，怎么样才能在浮点运算种只保留两位小数？？？

要自己截断：
Round(f*100)/100.0

s:=0.016345;
str:=FormatFloat('0.00', s);//适合输出显示
s:=strTofloat(str); //

是用于显示还是用于保存?
保存: 在数据库中字段限制就可以了
显示: 用floattostrf(...)就可以了,用法请参阅HELP

Pipi. is correct.

In addition, using round() or trunc(), you will get different answers. The
following is a sample:

procedure TForm5.Button1Click(Sender: TObject);
var
f1,f2:double;
s:string;
begin
f1:=9.2365;
f2:=round(f1*100)/100;
//f2:=trunc(f1*100)/100;
s:=floatToStr(f2);
showMessage(s);
end;

FormatBuf 函数 格式化一系列的参数
FormatDateTime 函数 用指定的格式来格式化日期和时间
FormatFloat 函数 指定浮点数格式 //*******你所需要的！[]
Frac 函数 返回参数的小数部分

function FormatFloat(const Format: string; Value: Extended): string;
FormatFloat('字符串格式','数值——你要控制的值')

——————————————————————————
格式 数字1 数字2 数字3 数字4
——————————————————————————
| 1234 -1234 0.5 0
——————————————————————————
1234 -1234 0.5 0
0 1234 -1234 1 0
0.00 1234.00 -1234.00 0.50 0.00
#.## 1234 -1234 .5
#,##0.00 1,234.00 -1,234.00 0.50 0.00
#,##0.00;(#,##0.00) 1,234.00 (1,234.00) 0.50 0.00
#,##0.00;;Zero 1,234.00 -1,234.00 0.50 Zero
0.000E+00 1.234E+03 -1.234E+03 5.000E-01 0.000E+00
#.###E-0 1.234E3 -1.234E3 5E-1 0E0

多人接受答案了。