我是想问 我有一个整型数i(如1111）我要把它除以100后显示在edit上，结果必须显示为11.11. (50分)

小

小菜鸟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #1

我是想问 我有一个整型数i(如1111）
我要把它除以100后显示在edit上，结果必须显示为11.11.

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #2

这不是什么类型转换。

1111/100

 

F

free_knight

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #3

自己编个函数不就行了

function TForm1.Int_To_real(i:integer):real;
begin
result:=i/100;
end;

 

小

小菜鸟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #4

请问该怎样显示在edit上呢
好像没有realtostr函数

 

D

DelphiBB

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #5

FloatToStr

 

L

lzhuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #6

有的,不过忘了,有个比real精度更高的数据类型.他可以转换成str
如果有求不高用floattostr

 

小

小菜鸟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #7

好像是我的表达能力差，
我是想问 我有一个整型数i(如1111）
我要把它除以100后显示在edit上，结果必须显示为11.11.

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #8

Edit.Text :=FloatToStr(1111/100);

 

L

luoshanliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #9

edit.text:=FormatFloar(0.00,1111/100)

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #10

floatToStrF(1111/100,ffFixed,10,2);
luoshanliang的改一下也可以，
edit.text:=FormatFloar('0.00',1111/100)

 

天

天真

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #11

edit1.text:=floattostr(1111/100);

 

K

kit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #12

edit.text:=FormatFloar('0.00',1111/100)

 

L

liyudd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #13

edit.text:=11+'.'+11

 

D

DelphiBB

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #14

嘿嘿，floattostr是我先说的，它是最关键的部分，其他的回答越详细就越不通用
所以给我分。

 

I

intcom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #15

edit.text:=copy(edit.text,1,Length(edit.text)-2)+'.'+copy(edit.text,Length(edit.text)-1,2)
试试我的，上机验证过。

 

D

danliyou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #16

edit1.text:=floattostr(1111/100);
建议分数全给DelphiBB.

 

I

intcom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #17

danliyou:
用edit1.text:=floattostr(1111/100);的方法
如果是1110,出来的结果是11.1,而不是11.10这种格式。

 

Y

ypy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #18

FormatFloat最好，不过他们的函数名都写错了：）
或者直接用format也行
edit1.text:=format('%.2f',[1111/100]);

 

Q

QXCOMM

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #19

edit1.text:=format('%.2f',[1111/100]);
edit1.text:=FormatFloat(0.00,1111/100)