问个小数点位移的问题,请帮忙看下怎么解决! 我有一个变量A,需要把变量A的小数点往前移动一位举例:A=1211 那么 A为 121.1A=120 那么 A 为 12.0A=9 那么 A 为 0.9A=-821 那么 A 为 -82.1请问如何实现,谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 FloatToStr(A/10);自己解决了,谢谢呵呵 if (A mod 10)=0 thenformat('0.1f',[A/10]); procedure TForm1.Button2Click(Sender: TObject);VARAA:integer;begin AA:=100; if (AA mod 10)=0 then edit1.Text:=format('0.1f',[AA/10]) else edit1.Text:=floattostr(AA/10);end;出来的结果是 0.1F。 edit1.Text:=format('%0.1f',[AA/10]) 阅读理解:《爱在西元前》---程序员们,进来~!嗨皮一下~! 散分庆祝 关于NULL值的问题! 怎样调用外部的BAT文件? ★★Delphi2005初体验中止_决定先暂时不使用Delphi2005了★★ 请问对EXCEL操作时,SHEET名是中文如何处理? 用printer对象打印时怎样取得某种字体字符的宽度 有一动态SQl的问题,请教大家! 各位我在一台机寫了delphi 程序為什么到另一台机不能用呢? 怎样连接远程数据库?初学者100份求教... 没想到delphi DBXXXX居然这样子得到recordCount VC转delphi
自己解决了,谢谢呵呵
if (A mod 10)=0 then
format('0.1f',[A/10]);
VAR
AA:integer;
begin
AA:=100;
if (AA mod 10)=0 then
edit1.Text:=format('0.1f',[AA/10])
else
edit1.Text:=floattostr(AA/10);
end;出来的结果是 0.1F。