//怎样保证小数点前是两位,不足两位就补0
strMinute="";
dTempNum=1.33333;
strMinute.Format("%.4f",dTempNum);
这样得到的是1.3333
strMinute="";
dTempNum=1.33333;
strMinute.Format("%.4f",dTempNum);
这样得到的是1.3333
解决方案 »
- delphi 怎么重载最小化、关闭窗口等消息?
- delphi求职:北京,青岛,大连等等。。。。。。。。。
- 如何把队列直接转化成字符串
- 如何用dbexpress 远程连接interbase数据库..............难啊
- 我想把Mome.Text里面的字符保存到一个文本文件123.TXT用什么代码,
- 请问StringGrid中可以填东西,然后发到数据库吗
- 如何编制定时提醒程序?如何让开始时运行程序。
- 求助:在远程数据模块中使用Type Library新建一个方法,如何设置输入参数为控件如:Tcombobox?
- 我想建个个人网站?麻烦各位给点意见?用什么工具好?我初学者!那里有免费的好空间?
- 抗议!抗议!!为什么我这几天发的贴子都被删了?为什么问个专业问题也会被删?为什么?????????????????
- 如何获得指定目录下的全部文件大小,急!
- 怎样禁掉“双击fastreport打开编辑界面”?
stray_CMC60\MonitorView.cpp(3172) : error C2015: too many characters in constant没有这个函数压
extern PACKAGE AnsiString __fastcall FormatFloat(const AnsiString Format, Extended Value, const TFormatSettings FormatSettings);
case WM_PUTUPFLOATS: { PXFORM pxform; pxform = (PXFORM) lParam; sprintf (buffer, FORMATFLOAT,pxform->eM11); SetDlgItemText(hwnd, IDD_EM11, buffer); sprintf (buffer, FORMATFLOAT,pxform->eM12); SetDlgItemText(hwnd, IDD_EM12, buffer); sprintf (buffer, FORMATFLOAT,pxform->eDx); SetDlgItemText(hwnd, IDD_EDX, buffer); sprintf (buffer, FORMATFLOAT,pxform->eM21); SetDlgItemText(hwnd, IDD_EM21, buffer); sprintf (buffer, FORMATFLOAT,pxform->eM22); SetDlgItemText(hwnd, IDD_EM22, buffer); sprintf (buffer, FORMATFLOAT,pxform->eDy); SetDlgItemText(hwnd, IDD_EDY, buffer); } return FALSE;
#define FORMATFLOAT "%1.2f" 我用的是VC++
var
L,P : integer;
Str : string;
begin
Str := TmpStr;
L:= Length(Str);
P:= Pos('.',Str);
if p = 0 then
begin
Str := Str+'.00';
end
else
if l-(p+1) =0 then
Str := Str+'0';
Result := Str;
end;
dTempNum=1.33333;
strMinute=FormatFloat('0.00',dTempNum);
这样得到的是1.33
如果dTempNum=1.33333:=1.3
strMinute=FormatFloat('0.00',dTempNum);
这样字符串strMinute得到的是1.30
需要的话还可以再转换成浮点数
用StrToFloat(strMinute)就可以了
FormatFloat(根本就不被承认