打印到文本时如何设置显示格式(数字显示成为货币格式)?代码如下:
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’这样的。
解决方案 »
- 系统热键 的问题
- 组件的资源占用
- 如何在同一个程序中同时播放两段甚至多段WAV音频文件
- ADOQuery修改帶有觸發器的表為何在保存時出錯?
- 急如何操作矩形tbitbmp旋转
- 求助!谁有TExtraDevices for Report Builder 6.0 (d6)???
- 局域网内怎样向其它机广播消息?
- adotable中新增、修改、删除记录后,在提交之前,如何知道对哪些记录做了改动?
- IntraWeb在通过ado与access连接时的问题!
- 初学者的问题~~大虾们能进来看看吗?谢谢
- 晕啊!!!还是DELPHI数据库BDE的问题啊!!!!!!
- 此题跟前面一题一样,求大虾帮忙,急急急,求各位大虾帮忙看一题(用行列法求最小割集),分不够发帖再加
begin
n:=12345678;
edit1.text:=Format('%*.*n',[10,0,n]);