a为Currency变量
要求:如大于10000,保留到十位数,如97821.35--->97820
如大于等于100,小于等于10000,保留到个位数,如821.35--->821
如小于100,保留一位小数,如21.35--->21.3
if a>10000 then
edit2.Text :=FormatCurr('0_',a) //这一句如何写?
else
begin
if a>=100 then
edit2.Text :=FormatCurr('0',a)
else
edit2.Text :=FormatCurr('0.0',a);
end;
要求:如大于10000,保留到十位数,如97821.35--->97820
如大于等于100,小于等于10000,保留到个位数,如821.35--->821
如小于100,保留一位小数,如21.35--->21.3
if a>10000 then
edit2.Text :=FormatCurr('0_',a) //这一句如何写?
else
begin
if a>=100 then
edit2.Text :=FormatCurr('0',a)
else
edit2.Text :=FormatCurr('0.0',a);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货