Delphi 如何计算DBGridEH 列 = 列值+文本框值

窗体上，加一个按钮，或加一个右键快捷菜单。
procedure TForm1.Button1Click(Sender: TObject);
var N:Double;
begin
  with DBGridEh1.DataSource.DataSet do
  begin
    First;
    While Not Eof do
    begin
      Edit;
      N:=FieldByName('应变值').asFloat+StrToFloat(Combobox1.Text);
      FieldByName('应变变化值').asString:=FloatToStr;
      Post;
      Next;
    end;
  end;
end;再保存即可。