一个菜问题-----4个饼(4分)

  • 主题发起人 主题发起人 wlyft
  • 开始时间 开始时间
W

wlyft

Unregistered / Unconfirmed
GUEST, unregistred user!
w:integer;
w:=3;
怎么把w*0.05转成integer
有没有简单易做的Gif控件?在那里?
 
Int()
Trunc()
Round()
FloatToInt()
最少也得给5分吧, 4分怪怪的
 
再来个trunc(w*0.05) 取整数部分.
 
我要保留两位小数?
具体方法?
 
round(w*0.05*100)/100 四舍五入
trunc(w*0.05*100)/100 截断
 
那怎么把它从Label中显示出来呢?
 
Label.Caption := IntToStr(...)
 
我是说把算出来的两位小数在label显示出来
如Label1.Caption := IntToStr(round(3*0.05*100)/100);这样不行
 
不行,round(3*0.05*100)/100不是整数
 
Label1.Caption := IntToStr(round(3*0.05))+'.'+IntToStr(round(3*0.05*100)/100-IntToStr(round(3*0.05)));
 
应该Label1.Caption := IntToStr(round(3*0.05))+'.'+IntToStr(round(3*0.05*100)/100-IntToStr(trunc(3*0.05)));
 
用formatfloat,format
 
天那
Label1.Caption := IntToStr(round(3*0.05))+'.'+IntToStr(round(3*0.05*100)-IntToStr(trunc(3*0.05))*100);
 
还是不对?我晕了……
Label1.Caption := IntToStr(round(3*0.05))+'.'+IntToStr(round(3*0.05*100)-(trunc(3*0.05)*100));

 
好像可以了吧?
 
const
MyFloat=3.1415926577;
procedure MyProcedure;
begin
ShowMessage(FormatFloat('0.00',MyFloat)
);
//显示3.14 如果MyFloat=3.457则显示3.46
end;
 
to wjiachun
这样的话如果反3换成1本来应该显示0。05就变成0。5了
 
to wjiachun
Label1.Caption := IntToStr(round(3*0.05))+'.'+IntToStr(round(3*0.05*100)-(trunc(3*0.05)*100));
当把3换成11时就显示为1.55
而我要的是0.55
怎么办?
有没有地方Download能显示Html文件的控件,要简单易用的?
 
一个formatfloat不就解决了吗?
 
后退
顶部