对一个浮点型的数,取到小数点后面第二位,用什么函数?

[getgoodgift]

谢谢!!!

[BENJOE]

乘10的2次方求与10的余数

[ztenv]

format()

[liwowo]

浮点取整
floor 和 ceil 是 math unit 里的函数，使用前要先 Uses Math。
trunc 和 round 是 system unit 里的函数，缺省就可以用。
floor 直接往小的取，比如 floor(-123.55)=-124，floor(123.55)=123
trunc 直接切下整数，比如 trunc(-123.55)=-123, floor(123.55)=123
ceil 直接往大的取，比如 ceil(-123.55)=-123， ceil(123.55)=124
round 计算四舍五入，比如 round(-123.55)=-124，round(123.55)=124

[楚人无衣]

1.RoundTo(value, -2);
2.StrToFloat(FormatFloat('0.00', value));

[楚人无衣]

uses Math

[yuanyu368]

strtofloat(formatfloat('0.00',45.214514145));

[programgirl]

赞成楼上的说法!比较简单!

但如果那个数是个变量的时候,建议写一个函数!如下,digit为保留长度,VARDATE为该浮点型的数

function roundformat(digit:integer;vardata:Real):Real;
var intvardata:Real;
pointchar:Real;
strvar,strvar1:string;
i:integer;
changedata:Real;
fuhao:integer;
begin
if (vardata<0) then fuhao:=-1 else fuhao:=1;
vardata:=abs(vardata);
intvardata:=int(vardata);//取整部分
pointchar:=Frac(vardata);//小数部分
strvar:=FloatToStr(pointchar);
strvar:=copy(strvar,1,digit+3);
if length(strvar)<digit+3 then
for i:=1 to digit+3-length(strvar) do strvar:=strvar+'0';
strvar1:=strvar;
setlength(strvar,digit+1);
pointchar:=strtofloat(strvar);
strvar:=strvar1;
if strvar<>'' then
begin
if StrToInt(strvar[length(strvar)])>=5 then
begin
if strvar1[length(strvar1)-1]='.' then
begin
changedata:=StrToInt(strvar1[length(strvar1)-2])+1;
strvar:=Floattostr(changedata);
end else
begin
changedata:=strtoFloat(strvar[length(strvar)-1])+1;
for i:=1 to digit do changedata:=changedata*0.1;
pointchar:=pointchar+changedata;
strvar:=FloatToStr(pointchar);
end;
end else
begin
if strvar[length(strvar)-1]='.' then strvar:='0' else
strvar:=copy(strvar,1,length(strvar)-1);
end;
if strvar<>'' then pointchar:=StrToFloat(Strvar) else pointchar:=0;
Result:=(intvardata+pointchar)*fuhao;
end else
begin
Result:=intvardata;
for i:=1 to digit do
if i=1 then result:=(StrToFloat(FloatToStr(intvardata)+'.0'))*fuhao else
result:=(StrToFloat(FloatToStr(intvardata)+'0'))*fuhao;
end;
end;

[kaershaw]

使用formatfloat函数返回值是一个String类型的，再转化成float即可。

[nibahan]

strtofloat(formatfloat('#.##',string));

[sexalpha]

format('%14.2f',[你的浮点数])

[bnabinge]

rocedure TForm13.savepu;
var
numkao:integer;
sbinge:string;
flonum:real;
begin
flonum:=strToFloat(thingsname.Text)/numkao;
sbinge:=formatFloat('0.'+stringOfChar('0',2),flonum);

end;