去掉浮点数后面的0，用什么函数？(20分)

X

xcxlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-21

• #1

比如说，1.10，我想处理成1.1

 

A

apw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-21

• #2

var
s: string;
begin
s := '1.10';
s := FormatFloat('#.#', StrToFloat(s));

 

X

xcxlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-21

• #3

楼上的没有理解我的意思，我并不知道这个数的最后是否是0，而且我也不知道他到底是几位的

 

L

lt66

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-21

• #4

i:=1.10;
a:=strToFloat(floattoStr(i));

 

G

gzgylgl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-21

• #5

自己写一函数处理吧

 

V

vb杀手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-21

• #6

帮你提前。

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-22

• #7

str1 := '1.1';
str2 := '1.10';
str3 := '1.100';
str4 := '1.1000';

ShowMessage(FloatToStr(StrToFloatDef(str1, 0)))
// 1.1
ShowMessage(FloatToStr(StrToFloatDef(str2, 0)))
// 1.1
ShowMessage(FloatToStr(StrToFloatDef(str3, 0)))
// 1.1
ShowMessage(FloatToStr(StrToFloatDef(str4, 0)))
// 1.1

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-22

• #8

我觉得最好是用
FloatToStrF
因为它的格式比较多

 

R

Rainux

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-01

• #9

[cornflowerblue]Test[/cornflowerblue]

 

I

itstart

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-01

• #10

用 TramRight我想也可以吧

 

H

hyh_china

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-01

• #11

同意beta