想在三个dbedit中得到1＋1＝2，但得到的是1＋1＝11，如下不行

Question

procedure TForm1.DBEdit2Exit(Sender: TObject);
begin
table1.Edit;
 if (DBEdit1.Field.text <> '') and (DBEdit2.Field.text <> '') then
 DBEdit3.Field.text:=DBEdit1.Field.text+DBEdit2.Field.text;
 table1.Post;
end;
如何得到1＋1＝2

Answer 1

procedure TForm1.DBEdit2Exit(Sender: TObject);
begin
table1.Edit;
 if (DBEdit1.Field.text <> '') and (DBEdit2.Field.text <> '') then
 DBEdit3.Field.AsInteger:=DBEdit1.Field.AsInteger+DBEdit2.Field.AsInteger;
 table1.Post;
end;

Answer 2

DBEdit3.Field.text:=inttostr(strtoint(DBEdit1.Field.text)+strtoint(DBEdit2.Field.text));

Answer 3

inttostr(strtoint(DBEdit1.Field.text)+strtoint(DBEdit2.Field.text));