edit-Wert als float in Tabelle speichern

[marabu]

Guten Morgen.

Du kannst in der SET-Klausel des UPDATE Statements Ausdrücke verwenden:

Delphi-Quellcode:

procedure Tmovestock.Button1Click(Sender: TObject);
var
  dt: TDateTime;
  fs: TFormatSettings;
begin
  // weil du im Edit keinen Dezimalpunkt verwendest:
  fs.DecimalSeparator := ',';
  dt := DateTimePicker1.DateTime;
  with dbisamquery1 do
  begin
    SQL.Text := 'insert into movestock(code, eingang, datum) '
              + 'values (:code, :eingang, :datum)';
    Params.ParamByName('code').Value := combobox1.Text;
    Params.ParamByName('eingang').Value := StrToFloat(edit1.Text);
    Params.ParamByName('datum').Value := dt;
    ExecSQL;

    SQL.Text := 'update stockfabric set stock = stock + :stock where code =  :code';
    Params.ParamByName('code').Value := combobox1.Text;
    Params.ParamByName('stock').Value := StrToFloat(edit1.Text);
    ExecSQL;
  end;
  edit1.Text := '';
  combobox1.Text := '';
end;

Beim DecimalSeparator musst du mal überlegen, ob du den nicht besser zu Beginn deines Programmes setzt.

Grüße vom marabu