关于小数的取舍问题(50分)

Y

yao99

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #1

我希望输入123.456,要得到123.45,第三位小数不作判断自动舍去，该用什么方式实现

 

易

易名烦

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #2

format()

 

小

小苹果

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #3

var
i:integer;
data:integer;
begin
i:=strtoint(edit1.text);
data:=format(0.00,i);
format这函数可以作到你要做的事情，我上面的调用可能不对，你去看delphi的帮助文件拉。

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #4

FormatFloat(const Format: string;
Value: Extended)
FormatFloat('0.00',value);

 

Y

yao99

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #5

用FormatFloat('0.00',value)会发生进位的

 

S

sunyha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #6

int(123.456*100)/100

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #7

F := Trunc(F * 100) / 100;

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #8

小数点后总是3位吗？

 

Y

yao99

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #9

不一定

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #10

.

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #11

如果在 TEdit 中处理，可以在 OnExit 事件中如下进行：
procedure TForm1.Edit1Exit(Sender: TObject);
var
x:integer;
y:string;
begin
y:=Edit1.text;
x:=pos('.',y);
if x<0 then
exit;
if (x+2<length) then
Edit1.text:=copy(y,1,x+2);
end;

 

Y

yao99

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #12

jsxjd你好：如果是整数的话就有欠缺

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #13

老兄，你有没有看我的回复啊，这样难道不行吗？
ShowMessage(Format('%.2f', [Trunc(F * 100) / 100]));

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #14

procedure TForm1.Edit1Exit(Sender: TObject);
var
x:integer;
y:string;
begin
y:=Edit1.text;
x:=pos('.',y);
if x<=0 then
exit;
//这里
if (x+2<length) then
Edit1.text:=copy(y,1,x+2);
end;

 

S

sunyha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #15

不知你要始终保留两位还是始终舍去最后一位。

 

Y

yao99

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #16

保留二位

 

Y

yao99

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #17

接受答案了.