TDBEdit Datum abprüfen bei exit

[stalkingwolf]

Danke an alle Antworten.

In unserem Delphi 6 Programm hat dies funktioniert und ich habe nachgeschaut warum.
Wir haben damals die sysutils.pas um diverse Dinge erweitert. Darunter auch das strtodate automatisch das Datum aufbereitet.
Die sysutils haben wir dann aus den D6 Installationen gelöscht und in einen eigenen Suchpfad gelegt.
Scheinbar hat das TDBedit auf strtodate zugegriffen und es hat damit funktioniert.

Glaub das geht in Delphi 11 nicht, weil die Delphi Versionen nach D6 wohl das Datum?! von den anderen Units gegenprüfen und somit keine Modifikation zulassen.

Das ist bad, weil unsere Anwender das gewohnt sind nicht das gesamte Datum einzugeben. Werden wohl nicht drumherum kommen das wir für die Datumsfelder kein DBedit mehr nutzen. Machen wir in neueren Programmen eh nicht mehr, es gibt noch paar alte welche primär auf TDBEdit aufsetzen.

Edit : Ich habe dies einmal mit OnSetText probiert.
2 Probleme dabei.
1.) Die Felder müssen dem Datset hinzugefügt worden sein. Das machen wir nicht immer. Eigentlich auch nicht notwendig. Aber das kann man lösen.
2.) Problem. Ich kann danach nicht mehr Leer eingeben. sobald ich leer durchreiche mit sender.value := text; gibt es eine Fehlermeldung. sender.asdatetime := 0 habe ich 1899 drin

[Papaschlumpf73]

Problem 2 löst du mit

Sender.Clear;

[BerndS]

Du könntest auch die Vcl.DBCtrls anpassen und den Pfad der geänderte Version im Suchpfad vor die Standardunits setzen oder in den Forms die TDBEdit anpassen.
Ich habe hier mal ein einfaches Beispiel, wie das geht, wobei ich hier TDBText direkt im Form abgeleitet habe, um keine neue Komponente erstellen zu müssen.
Noch besser wäre es, TDBEdit abzuleiten und als neuen Komponente diese in deinem Forms/Datenmodulen auszutauchen.
In meinem Beispiel wird bei einem ungültigen Datum der 1.1.2023 eingetragen. Da müsste dann deine Logik zum prüfen und anpassen des Textes rein.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Mask, Vcl.DBCtrls, Vcl.ExtCtrls, Data.DB, kbmMemTable;

type
  TDBEdit = class( Vcl.DBCtrls.TDBEdit)
  public
    procedure ValidateEdit; override;
  end;
  TForm1 = class(TForm)
    mt1: TkbmMemTable;
    mt1DATE: TDateField;
    mt1Name: TStringField;
    ds1: TDataSource;
    db1: TDBNavigator;
    dbe1: TDBEdit;
    dbeDATE: TDBEdit;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TDBEdit }

procedure TDBEdit.ValidateEdit;
var
  S: string;
  D: TDateTime;
  SA: TArray<string>;
begin
  inherited;
  if Field is TDateField then
  begin
    S := Text;
    if not TryStrToDate(S, D) then
    begin
      Text := '01.01.2023';
    end;
  end;

end;

end.