TDateTimePicker - wie Einfabefehler abfangen?

[NicoleWagner]

ich suche einen Weg, gegen diese Fehleingabe vorzugehen.

Gegeben ist diese Zuweisung:

datum:=DatePlannerPicker1.Date;

wobei
datum => TDateTime;
DatePlannerPicker1 => TPlannerDatePicker; => Typ ist sehr ähnlich einem TDatePicker, dessen modus auf Datum gesetzt wurde

Funktioniert alles wunderbar, wenn ein Datum im DatePicker gewählt wird oder ein korrektes Datum eingegeben.
Schwierig wird es allerdings, wenn manuell ein ungültiges Datum eingegeben wird.
Also z.B. der '99.7.2020'
und der User ok (auf den Button 'verarbeiten') klickt.

Delphi gibt hier eine Fehlermeldung aus, - doch mein Code läuft danach weiter und verarbeitet den 99. Juli.

Wie komme ich an diese Fehlerprüfung ran?
Die klassische Datumsprüfung isValidDate benötigt word-Vars.
Meinen Typ TDateTime in 3 word-Vars zu verwandeln zum Prüfen, - das ist doch zu hässlich.

try-Except
wiederum greift nicht, weil Delphi den Fehler abfängt.
D.h. das Programm kommt nicht in den except Block, sondern läuft fröhlich weiter, wenn der 99. Juli lang ist.

Was ich will, ist das:

If 'fehlerhaftes Datum' then begin
ShowMessage('Datum im DatePicker fehlerhaft');
exit;
end;

Danke für Arbeitstipps!

[Der schöne Günther]

Wo auch immer du deinen

Delphi-Quellcode:

TPlannerDatePicker

herhast, der muss sich um Fehleingaben kümmern.

Und ich glaube auch nicht dass dein Code mit einem 99. Juli arbeitet. Delphis TDateTime ist eine Kommazahl welche die "Anzahl der Tage seit 30.12.1899" wiedergibt.

[Sherlock]

Um Günthers Worte noch abzukürzen: Verwende keine exotischen Komponenten, sondern fang zunächst mit den Bordmitteln an.

Sherlock

[NicoleWagner]

Ich weiß nicht, hier bekam ich schon so oft derart gute Antworten.... Und jetzt? Der eine erklärt mir, dass man die Fehlermeldung nicht abfangen könnte, weil man unzuständig wäre. Das topt er damit, mir meinen nicht-geposteten Code erklärt. Und der andere behauptet, dass die seit Jahrzehnten weit verbreitete Komponentensammlung von TMS "exotisch" wäre? :roll:
https://www.tmssoftware.com/site/default.asp
Die Lösung hat nichts mit meinem Fall oder TMS zu tun, sondern es geht darum, wie man mit einem Fehler gut umgeht, der von Delphi selbst behandelt wird.

Bitte nur posten, wenn Ihr eine Lösung habt, danke!
Wer schon lange in Delphi arbeitet, HAT hier eine Lösung.

[Klaus01]

.. könntest Du nicht vor der Weiterverarbeitung das Datum überprüfen
und gegebenfalls darauf reagieren?

Grüße
Klaus

[Uwe Raabe]

TPlannerDatePicker bietet eine Funktion IsDateValid an.

[TiGü]

Zitat:

Zitat von NicoleWagner (Beitrag 1469192)

ich suche einen Weg, gegen diese Fehleingabe vorzugehen.

Gegeben ist diese Zuweisung:

datum:=DatePlannerPicker1.Date;

wobei
datum => TDateTime;
DatePlannerPicker1 => TPlannerDatePicker; => Typ ist sehr ähnlich einem TDatePicker, dessen modus auf Datum gesetzt wurde

try-Except
wiederum greift nicht, weil Delphi den Fehler abfängt.
D.h. das Programm kommt nicht in den except Block, sondern läuft fröhlich weiter, wenn der 99. Juli lang ist.

Unter der Annahme, dass dies der passende Quelltext ist (Quelle: http://www.bvbcode.com/code/dsepigku-1663452

Delphi-Quellcode:

procedure TPlannerDatePicker.Change;
var
  dt: TDateTime;
begin
  inherited;
  // try to extract the date
  try
    if (Text = '') or
       (Pos(DateSeparator, Text) = 0) or
       (Text = '  /  /  ') then
      Calendar.Date := 0
    else
    begin
      dt := StrToDate(Text);
      Calendar.Date := dt;
    end;  
  except
  end;
end;

Dann schluckt die Komponente die "Fehlermeldung" selbst.
Übrigens wäre es gut, wenn du diese Fehlermeldung kopierst (Strg+C geht bei den meisten Messageboxen/Exceptions) oder ein Screenshot davon machst und bei deinen Beiträgen hinzufügst.
Wahrscheinlich kommt sowas bei rum?

Code:

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EConvertError with message ''99.07.2020' ist kein gültiges Datum'.
---------------------------
Break   Continue   Help   
---------------------------

Zitat:

Zitat von NicoleWagner (Beitrag 1469192)

Was ich will, ist das:

If 'fehlerhaftes Datum' then begin
ShowMessage('Datum im DatePicker fehlerhaft');
exit;
end;

Danke für Arbeitstipps!

Ein Prüfen mit SameDate würde sich anbieten.
Konsolen-Programm-Beispiel:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.DateUtils;

var
  dt: TDateTime;
  Text: string;

begin
  try
    Text := '99.7.2020';
    dt := StrToDate(Text);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

  // hier dann deine Variable datum oder DatePlannerPicker1.Date verwenden
  if System.DateUtils.SameDate(dt, TDateTime(0)) then
  begin
    Writeln('Datum im DatePicker fehlerhaft');
  end;
  Readln;
end.

[NicoleWagner]

Danke Klaus und Uwe Rabbe für die Antwort (ad isValidDate).
Ja, könnte ich wohl. Doch dazu muss ich 3 unnötige word Variablen deklarieren und diese nicht benötigte Umwandlung tun. Ist zwar eine Lösung, doch nicht sehr elegant.

Da muss es doch etwas geben, wenn Delphi einen Fehler ausgibt?!
Oder wäre das schon ein Handle und der Zugriff noch umständlicher als der Umweg über die Einzelwerte?

[NicoleWagner]

Danke TiGü für Deine Antwort!
Sie enthält soviele spannende Infos, dass ich sie mir abends ansehen werde und in Ruhe ausprobieren.

[Uwe Raabe]

Zitat:

Zitat von NicoleWagner (Beitrag 1469192)

Was ich will, ist das:

If 'fehlerhaftes Datum' then begin
ShowMessage('Datum im DatePicker fehlerhaft');
exit;
end;

Das ließe sich dann ja in etwa so machen:

Delphi-Quellcode:

If not DatePlannerPicker1.IsValidDate then begin
  ShowMessage('Datum im DatePicker fehlerhaft');
  exit;
end;

{ ab hier mit DatePlannerPicker1.Date arbeiten }

[TiGü]

Ja gerne, aber ich denke, Uwes Idee ist da zielführender.
Vermutlich hat er die Komponente/Quelltext vorliegen.

Lies nochmal genau seinen Beitrag durch. Ich denke, du hast durch oberflächliches Lesen nicht erkannt, was er eigentlich meinte.

EDIT: Dachte ich es mir doch!^^

[NicoleWagner]

Danke Uwe!! (und TiGü)
Das funktioniert jetzt wunderbar!
Dass meine eigene Komponente diese Methode kennt, übersah ich glatt.
Bruno (Entwickler von TMS) ist ein EDV-Genie. Hätte ich mir fast denken können, dass er auch daran dachte ...
.... egal, es läuft.