打印到文本时如何设置显示格式(数字显示成为货币格式)?代码如下:
begin
AssignFile(MyFile,FileName); //输出到文件
Rewrite(Myfile); //创建或重写已有文件用Reset
WriteLn(myFile,’print this text’);
Write(MyFile,FormatDateTime('YYYY-MM-DD',FieldByName('dDate').AsDateTime)); //日期
Write(MyFile,FieldByName('cDigest').AsString); //摘要
Write(MyFile,FloatToStr(FieldByName('mBuyMoney').AsFloat)); //增加
Write(MyFile,FloatToStr(FieldByName('mSaleMoney').AsFloat)); //减少
System.CloseFile(MyFile);
End;
如何对Float类型的字段在输出到文本时设置格式?比如,需要显示成为:‘999,999.99’这样的。
begin
AssignFile(MyFile,FileName); //输出到文件
Rewrite(Myfile); //创建或重写已有文件用Reset
WriteLn(myFile,’print this text’);
Write(MyFile,FormatDateTime('YYYY-MM-DD',FieldByName('dDate').AsDateTime)); //日期
Write(MyFile,FieldByName('cDigest').AsString); //摘要
Write(MyFile,FloatToStr(FieldByName('mBuyMoney').AsFloat)); //增加
Write(MyFile,FloatToStr(FieldByName('mSaleMoney').AsFloat)); //减少
System.CloseFile(MyFile);
End;
如何对Float类型的字段在输出到文本时设置格式?比如,需要显示成为:‘999,999.99’这样的。
解决方案 »
- Delphi调用PowerPoint
- SetWindowsHookEx 返回错误1813
- 使用ReadDirectoryChanges读取指定目录下文件变化的问题[急]
- 我设置了一个参数[存注册表],用来控制CXGRID在分组后时候直接展开。但是不知道写在哪里?
- INSERT INTO 问题! 请高手帮忙!
- 推荐几本Delphi的书,希望深入学习Delphi。谢谢!
- table 保存不了数据
- 请教,怎样判定输入的字符串中有汉字???急!!!在线等!!
- 求一棵层次遍历二叉树的函数
- 利用application怎样动态生成窗体?
- 晕啊!!!还是DELPHI数据库BDE的问题啊!!!!!!
- 此题跟前面一题一样,求大虾帮忙,急急急,求各位大虾帮忙看一题(用行列法求最小割集),分不够发帖再加
begin
n:=12345678;
edit1.text:=Format('%*.*n',[10,0,n]);