DELPHI里数据库里的值相加怎么写

是这样的我们现在是往数据库里添加一个数先查这条数据如果没有直接插入，若有把现在的数和查出来的数相加在插入库中，这条语句在Delphi里怎么写

var
vOldValue:String;
vNewValue:real;

With query1 do
begin
close;
sql.text:=format('select fieldname from tablename where fieldname=''%s''',[edit1.text]);
open;
if recordcount=0 then
begin
close;
sql.text:=format('insert into tablename(fieldname) values(''%s'')',[edit1.text]);
execsql;
end
else begin
close;
vOldValue:=FieldByName('FieldName').AsString;
vNewValue:=StrToFloatDef(vOldValue,0)+StrToFloatDef(edit1.text,0);//整还是浮自己转636f707962616964757a686964616f31333236373865
sql.text:=format('update tablename set fieldname=''%s'' where fieldname=''%s''' ,[vNewValue,vOldValue]);
execsql;
end;
end;

不能分步吗？ 先用Tquery执行查询语句，判段存不存在 再根据判断结果，insert 要一步执行，我不知道可不可以，我没有试过 decode函数你去查查

1再根据断定结不雅，insert不克不及分步吗？先用tquery履行萌芽语句，判段存不存在要一步履行，我不知道可弗成以，我没有试过decode函数你去查查