procedure TSaveMonForm.SaveBtnClick(Sender: TObject);
var a:double;
begin
ADoQuery1.Edit;
a := StrToFloat(BalanceEdit.Text)+StrToFloat(SaveCalEdit.Text); (1)
BalanceEdit.Text := FloatToStr(a); (2)
AdoQuery1.Post;AdoQuery1.Refresh;
ShowMessage('充值成功!');
end;问题: 1. 如果我想将文本转换成数字进行四则运算,(1)处是否正确? 2. 如果我要将结果写回文本,那么(2)处是否正确呢? 3. 为什么结果不能写进数据库呢? 我是用Ado操作的。 BalanceEdit是一个
数据库感知控件,可以更改的结果立刻显示出来
var a:double;
begin
ADoQuery1.Edit;
a := StrToFloat(BalanceEdit.Text)+StrToFloat(SaveCalEdit.Text); (1)
BalanceEdit.Text := FloatToStr(a); (2)
AdoQuery1.Post;AdoQuery1.Refresh;
ShowMessage('充值成功!');
end;问题: 1. 如果我想将文本转换成数字进行四则运算,(1)处是否正确? 2. 如果我要将结果写回文本,那么(2)处是否正确呢? 3. 为什么结果不能写进数据库呢? 我是用Ado操作的。 BalanceEdit是一个
数据库感知控件,可以更改的结果立刻显示出来
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货