Im DBEdit ein String in ein Date umwandeln

[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.