你肯定懂的小问题(50分)

3

317

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-02

• #1

各位大虾：
; ; ; 如何让一个real类型的数据让它四舍五入取两位小数？用哪个函数?

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-02

• #2

FORMAT

 

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-02

• #3

FormatFloat

 

E

eric.youbin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-02

• #4

不能用FormatFloat
只能
format('%0.2f',[yourvalue]);

 

K

kingdeezj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-02

• #5

procedure TForm1.Button1Click(Sender: TObject);
var
s:real;
begin
s:=1.255;
showmessage(formatfloat('0.00',s));
end;
但这样有一个小问题,就是1.255仍是1.25,只有1.256能得到结果1.26

 

天

天真

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-02

• #6

你要几位小数？
如果是三位就这样写
var i:real;
begin
procedure TForm1.Button1Click(Sender: TObject);
var
s:real;
begin
s:=1.255+0.005;
showmessage(formatfloat('0.00',s));
end;

end;

 

Z

zxb200

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-02

• #7

var str,result1:real;
;1.result1:=strtofloaat(formatfloat('0.00',str));
;2.result1:=round(str*100)/100;
;3.result:=strtofloat(format('%0.2f',[str]));

 

3

317

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-02

• #8

多人接受答案了。