关于金额小计 ( 积分: 10 )

ADOTable2.FieldByName('单项累计').Asstring :=format('%.3f',[ StrToFloat(Edit6.Text)*StrToFloat(format('%.3f',[strtofloat(Edit8.Text)]))]);
edit6中是单价，已经处理过了保留三位小数。后面的edit8是数量，要处理成三位小数，然后整个的单项累计又处理成保留三位小数。上述的代码是能正确执行的，但看上去老麻烦的，转换来转换去的，不知道是否有更简洁高效的代码？

顶

字段的DisplayFormat 属性 如'0.00'

DisplayFormat的话维护起来复杂，涉及到的地方都要改

ADOTable2.FieldByName('单项累计').Asstring :=format('%.3f',[ StrToFloat(Edit6.Text)*strtofloat(Edit8.Text)]);

自由灵活，所见即所得的表格组件，开发环境下设计表格内容，独有的单据和Excel两种界面风格，可设计出各种类型的界面，配合强劲的打印功能，轻松解决自由界面和报表难题。其显著特性包括：

提供了单据， Excel ，Grid 三种界面风格。
开发环境下设计表格，所见即所得。
支持数据库和分组。
既可以作为普通表格使用，又可以作为数据感知组件使用，或者两者同时使用。
独特的双数据源连接，轻松实现单记录布局和主从表连接。
除了通过数据集本身的方法来访问数据库的记录之外，还可以通过读取单元格的Text属性来实现，这样就不必在数据集间来回移动记录。
支持unicode文本。
提供了列排序，移动行列，隐藏行列，增删行列等功能。
提供了 Excel 样式的过滤功能。
方便的查找对话框。
提供了单元格合并，单元格命名，只读单元格，锁定单元格等功能。
提供了列对象，用于控制整列单元格。
支持虚表，公式(包括自定义公式)， RTF 格式文本，Ole 对象和图表。
提供了按钮、下拉框、复选框、单选钮、日期、超链接、数值类等多种输入方式。
支持整形、正整形、负整形、浮点数、正浮点数、负浮点数等输入方式。可自动处理千分位，可设置小数位数。
九种文本和图形对齐方式，还可通过单元格边距控制输出位置。
导入/导出 Excel 文件，相互粘贴数据。
提供了自动调整行高，垂直文本输出功能。
可以设置单元格掩码，附有掩码编辑器。
设置单元格的 PasswordChar。
单元格内容字符数限制。
单元格支持图形，并且可以拉伸，层叠图形。
可以显示/隐藏单元格的边框、可以设置边框的类型、大小、颜色。
支持单元格斜线。
3D 外观的单元格。
设置单元格的光标和提示。
支持自绘画单元格。
设置固定行和列。
保存到文件和流。
提供了复制/粘贴区域功能。
VCL 版本可以插入其它可视 VCL 组件。

http://www.anylib.com

to kaida 数量在录入时保留三位，在计算时如果去掉的话就会产生一厘钱的误差的。

直接把 单项累计 的属性设置成保留3位小数，然后
ADOTable2.FieldByName('单项累计').Asstring :=StrToFloat(Edit6.Text)*strtofloat(Edit8.Text);

多人接受答案了。