Im DBEdit ein String in ein Date umwandeln

[ickehausen]

Hallo Leute,

in meiner Firebird-Datenbank möchte ich ein Date-Feld über ein DBEdit füllen. Nun würde ich gern in das DBEdit auch ein 'h' eingeben können, welches dann in das aktuelle Datum umgewandelt wird. Analog dazu 'g' und 'm' für gestern und morgen. Ich versuche es mit dem onExit-Ereignis der DBEdit-Komponente wie folgt und erhalte beim Verlassen der DBEdit-Komponente eine Exception der Klasse EConvertError mit der Meldung ''h' ist kein gültiges Datum'.

Delphi-Quellcode:

procedure TForm1.DBEditVDatumExit(Sender: TObject);
begin
  dat := DBEditVDatum.EditText;
  if dat = 'h'  then
    DBEditVDatum.EditText := DateToStr( Date());
end;

Ersetze ich das 'h' durch '' und lasse das DBEdit frei, fügt mir meine Anwendung das aktuelle Datum ein!?

Kann mir jemand helfen?

[bluesbear]

Versuche doch mal, in OnKeyPress den jeweiligen Buchstaben abzufangen.

[mkinzler]

Soll direkt nach Eingabe das Datum im Edit erscheinen oder beim Einfügen in die DB?

[ickehausen]

Danke bluesbaer,

Du hast mich auf den richtigen Weg gebracht. Mit onChange geht es jetzt:

Delphi-Quellcode:

procedure TForm1.DBEditVDatumChange(Sender: TObject);
begin
  dat := DBEditVDatum.EditText;
  if dat = 'h'  then
    DBEditVDatum.EditText := DateToStr( Date());
  if dat = 'm'  then
    DBEditVDatum.EditText := DateToStr( Date()+1);
  if dat = 'g'  then
    DBEditVDatum.EditText := DateToStr( Date()-1);
end;

So wird direkt bei der Eingabe das Datum umgewandelt.

[shmia]

Die technisch beste Lösung wäre, nicht am Control TDBEdit anzusetzen, sondern am Feld.
Dazu wird ein Eventhandler für OnSetText bereitgestellt:

Delphi-Quellcode:

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'  then 
    Sender.AsDateTime := DateToStr( Date()-1.0)
  else
    Sender.AsString := Text;
end;

Vorteil: das funktioniert jetzt nicht nur mit einem DBEdit sondern auch mit TDBGrid.
Ausserdem ist es möglich alle Date-Felder über eine Schleife abzugrasen und den Eventhandler zuzuweisen.

[ickehausen]

shmia, danke für den weiteren Tip. Es darf dann aber nicht mit DateToStr umgewandelt werden, sonst erhalte ich eine Fehlermeldung inkompatible Variablen-Typen

Delphi-Quellcode:

procedure TDataModule2.IBDataSetMainVERNICHTUNGSDATUMSetText(Sender: TField;
  const Text: string);
begin
  if Text = 'h'  then
    Sender.AsDateTime := ( Date())
  else if Text = 'm'  then
    Sender.AsDateTime := ( Date()+1.0)
  else if Text = 'g'  then
    Sender.AsDateTime := ( Date()-1.0)
  else
    Sender.AsString := Text;
end;

[shmia]

Zitat von ickehausen:

Es darf dann aber nicht mit DateToStr umgewandelt werden, sonst erhalte ich eine Fehlermeldung inkompatible Variablen-Typen

Ja, klar. Ich tippe meinen Code meistens ungetestet ein, da kann sowas schol mal passieren.