Forum: Datenbanken
Delphi
by shmia,
20. Mai 2008
Ja, klar. Ich tippe meinen Code meistens ungetestet ein, da kann sowas schol mal passieren. :? :zwinker:
Forum: Datenbanken
Delphi
by shmia,
20. Mai 2008
Die technisch beste Lösung wäre, nicht am Control TDBEdit anzusetzen, sondern am Feld.
Dazu wird ein Eventhandler für OnSetText bereitgestellt:
procedure TForm1.DateFieldOnSetText(Sender: TField; const Text: String);
begin
if Text = 'h' then
Sender.AsDateTime := DateToStr( Date())
else if Text = 'm' then
Sender.AsDateTime := DateToStr( Date()+1.0)
else if Text = 'g' ...