Question

delphi 怎么在settext()事件中将值格式化,并保存到dataset里面.

在DBgrid修改的数据1000，在settext中怎么处理，写回数据集中是100.00

procedure TForm1.ADODataSet2PriceSetText(Sender: TField;
const Text: String);
begin
//这里该怎么写。
end；
是100格式化 100.00

Answer 1

数据库该字段设置为这个格式，前端无效，只能设显示格式

追问

settext事件的主要功能不就是格式化存储的么。怎么感觉体现不了？数据库中该字段已经是float型，那该怎么格式化成两位有效数字。上面那位朋友的方法，在数据库中还是不能保留两位有效值。

追答

存储不关前端的事，好好研究数据库字段

Answer 2

Sender.Value := Format('%.2f', [strtofloat(text)]);

追问

数据中还是没保存为100.00的形式，求解

追答

之前没看清楚你的要求，你是说改成1000，但是要存成100.00对吧

Sender.Value := StrToFloat(Text) / 10.0;

追问

数据库还是不能保留两位有效值。。。。。。。

追答

数据字段类型用Numerical(10,2)