Also es gibt nur diesen CODE!!!
Aber so richtig glauben kann ich es auch nicht (siehe meine vorherige Frage)
Wenn du sofort eine Close machst, warum bleiben dann die Anzeigen im Grid bestehen?
Bzw. WIE kommen die Daten ins Grid? (über ein DataBinding von ZeitenEdit wohl eher nicht)
Denn so wie der Code ist, kann er definitiv nicht kompiliert werden.
ZeitenEditANFANGZEIT.AsDateTime := Now
Fehlt da nicht ein TimeOf?
Fehlt dahinter nicht ein ;
Fragen zum Datenbank-Design würden sich auch noch stellen. (aber das ist eine andere Angelegenheit)
Warum sind die Daten
doppelt mehrfach in der Tabelle?
* Ein Feld reicht. (Das dann für die Anzeige im SELECT aufzuteilen, ist eine andere Sache)
* das mehrfache
Now
kann sich zur Laufzeit ändern. (z.B. einen Hauch vor Mitternacht gecklickt, kann das letzte
Now
nach Mitternacht sein und schon passen die Daten nicht mehr zusammen)
* und wenn man die Daten bearbeitet, aber irgendwo ein Feld vergisst, war's das auch wieder, mit der Konsistenz
Warum
ZeitenEditTAG.Value := IntToStr(DayOf(Now));
anstatt
ZeitenEditTAG.AsString := IntToStr(DayOf(Now));
oder gar
ZeitenEditTAG.AsInteger := DayOf(Now);