一个小小的问题，不知道你能不能回答？

Question

怎么才能禁止四舍五入？
比如：我的值实际是2.396874，定了Displayformat('#.0000')后却显示成2.4000，怎么解决？
各位帮忙

Answer 1

自己写一个函数
procedure TForm1.Button1Click(Sender: TObject);
var
  l:real;
begin
  l:=21.154367;
  showmessage(floattostr(form1.getreal(l)));
end;function TForm1.getreal(var l: real): real;
var
  i,j:integer;
  s,s1,s2:string;
begin
  s:=floattostr(l);
  i:=pos('.',s);
  s1:=copy(s,i+5,1);
  s2:=copy(s,1,i+4);
  j:=strtoint(s1);
  if j>=5 then
    result:=strtofloat(s2)+0.0001
  else
    result:=strtofloat(s2);
end;