W wlyft Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-13 #1 w:integer; w:=3; 怎么把w*0.05转成integer 有没有简单易做的Gif控件?在那里?
S SuperMMX Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-13 #3 Int() Trunc() Round() FloatToInt() 最少也得给5分吧, 4分怪怪的
P popeye Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-13 #6 round(w*0.05*100)/100 四舍五入 trunc(w*0.05*100)/100 截断
S SuperMMX Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-14 #8 Label.Caption := IntToStr(...)
W wlyft Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-14 #9 我是说把算出来的两位小数在label显示出来 如Label1.Caption := IntToStr(round(3*0.05*100)/100);这样不行
W wjiachun Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-14 #10 不行,round(3*0.05*100)/100不是整数
W wjiachun Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-14 #11 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(round(3*0.05)));
W wjiachun Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-14 #12 应该Label1.Caption := IntToStr(round(3*0.05))+'.'+IntToStr(round(3*0.05*100)/100-IntToStr(trunc(3*0.05)));
应该Label1.Caption := IntToStr(round(3*0.05))+'.'+IntToStr(round(3*0.05*100)/100-IntToStr(trunc(3*0.05)));
W wjiachun Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-14 #14 天那 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)-IntToStr(trunc(3*0.05))*100);
W wjiachun Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-14 #15 还是不对?我晕了…… Label1.Caption := IntToStr(round(3*0.05))+'.'+IntToStr(round(3*0.05*100)-(trunc(3*0.05)*100));
还是不对?我晕了…… Label1.Caption := IntToStr(round(3*0.05))+'.'+IntToStr(round(3*0.05*100)-(trunc(3*0.05)*100));
A autumn Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-14 #17 const MyFloat=3.1415926577; procedure MyProcedure; begin ShowMessage(FormatFloat('0.00',MyFloat) ); //显示3.14 如果MyFloat=3.457则显示3.46 end;
const MyFloat=3.1415926577; procedure MyProcedure; begin ShowMessage(FormatFloat('0.00',MyFloat) ); //显示3.14 如果MyFloat=3.457则显示3.46 end;
W wlyft Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-14 #18 to wjiachun 这样的话如果反3换成1本来应该显示0。05就变成0。5了
W wlyft Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-14 #19 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文件的控件,要简单易用的?
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文件的控件,要简单易用的?