你在写上代码
procedure TForm1.DBEdit1Change(Sender: TObject);
begin
if dbedit1.Text <> '' then
f1:=strtofloat(dbedit1.text)
else
f1:=0;
if dbedit2.Text <> '' then
f2:=strtofloat(dbedit2.text)
else
f2:=0;
dbedit3.text:=floattostr(f1+f2);end;
procedure TForm1.DBEdit1Change(Sender: TObject);
begin
if dbedit1.Text <> '' then
f1:=strtofloat(dbedit1.text)
else
f1:=0;
if dbedit2.Text <> '' then
f2:=strtofloat(dbedit2.text)
else
f2:=0;
dbedit3.text:=floattostr(f1+f2);end;
改为 query1.fieldbyname('').asfloat:=f1+f2