Zeit im Label aktualisieren

[tom_po]

ok, ich hab's jetzt so, danke für den tip, der code ist jetzt schlanker...

Delphi-Quellcode:

procedure Tmovestock.Button1Click(Sender: TObject);     //Eingang Material
var
  fs: TFormatSettings;
begin
  // weil du im Edit keinen Dezimalpunkt verwendest:
  fs.DecimalSeparator := ',';
  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 := now;
    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;
    SQL.Text := 'update stockfabric set date = :datum where code =  :code';
    Params.ParamByName('datum').Value := now;
    ExecSQL;
  end;
  label6.Caption := datetimetostr(now);
  button3.Click;
end;

und den datetimepicker brauch ich jetzt wirklich nicht, denn alle buchungen sollen ja nur mit dem aktuellen datum und uhrzeit gespeichert werden, so kann man am datum nichts machen...gute idee, danke