Forum: Datenbanken
Delphi
by ickehausen,
20. Mai 2008
shmia, danke für den weiteren Tip. Es darf dann aber nicht mit DateToStr umgewandelt werden, sonst erhalte ich eine Fehlermeldung inkompatible Variablen-Typen
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)
...
Forum: Datenbanken
Delphi
by ickehausen,
20. Mai 2008
Danke bluesbaer,
Du hast mich auf den richtigen Weg gebracht. Mit onChange geht es jetzt:
procedure TForm1.DBEditVDatumChange(Sender: TObject);
begin
dat := DBEditVDatum.EditText;
if dat = 'h' then
DBEditVDatum.EditText := DateToStr( Date());
if dat = 'm' then