edit-Wert als float in Tabelle speichern

[marabu]

Hallo.

Wenn du das Statement parametrisierst, dann behältst du eher die Übersicht (ungetestet):

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  dt: TDateTime;
  fs: TFormatSettings;
begin
  // weil du im Edit keinen Dezimalpunkt verwendest:
  fs.DecimalSeparator := ','; 

  dt := DateTimePicker1.Date;
  with dbisamquery1 do
  begin
    SQL.Text := 'insert into stockfabric(code, in, date) '
              + 'values (:code, :in, :date)';
    Parameters.ParamByName('code').Value := combobox1.Text;
    Parameters.ParamByName('in').Value := StrToFloat(edit1.Text);
    Parameters.ParamByName('date').Value := date;
    ExecSQL;
  end;
  edit1.Text := '';
  combobox1.Text := '';
end;

Mir wäre allerdings wohler, wenn du deine Datenbankfelder nicht IN und DATE nennen würdest. Ist vielleicht im Augenblick kein Problem für dich, aber erschwert eine Portierung.

Grüße vom marabu