NumbersOnly bei TDateTimePicker

[JanTera]

Hallo

Ich muss den Standardkomponent "TDateTimePicker" verwenden, doch leider habe ich das Problem, dass man auch Buchstaben und Zeichen, anstatt nur Zahlen eingeben kann. Wenn man kein akzeptables Datumformat benutzt (oder eben z.B. Buchstaben), stürzt mein Programm ab.
Ich habe auch versucht, die Exception abzufangen, aber der Fehler wird immer schon vor meinem Abfangversuch geworfen.

Ich suche entweder nach einer Property die sagt, dass man nur Zahlen angeben kann, oder einen Weg, die Exception früh genug abzufangen.

Danke

[Uwe Raabe]

Gibt es ein Beispielprogramm, mit dem man das Problem nachvollziehen kann?

[EWeiss]

Delphi-Quellcode:

function IsNumeric(const s: string): Boolean;
const
  NUMBERS = ['0'..'9'];
var
  i: integer;
begin
  Result := true;

  for i := 1 to Length(s) do
  if not (CharInSet(s[i], NUMBERS)) then
    begin
      Result := false;
      Exit;
  end;

end;

gruss

[JanTera]

@Uwe
Für was brauchst du ein Beispielprogramm? Wenn man bei einem TDateTimePicker einen Buchstaben eingibt und Enter drückt, gibt es eine Exception. Wie ich das verhindere, war die Frage.

@EWeiss
Danke für die Antwort, aber herauszufinden, ob ein Zeichen eine Zahl ist oder nicht war nicht das Problem. Das Problem ist, dass die Exception zu früh geworfen wird und ich sie nicht abfangen kann.

Danke für die Antworten

[philipp.hofmann]

und es einfach in KeyDown abfangen?

Delphi-Quellcode:

procedure TicTrainerF.cbLegRatioKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
begin
  if (pos(keyChar,'0123456789')<=0) then
  begin
    keyChar:=#0;
    exit;
  end;
end;

[taveuni]

Oder einfach diese Spezifische Exception selbst abfangen (behandeln)?

[haentschman]

Oder einfach...den User nicht das Datum manuell eingeben lassen. Aus Erfahrung erleichert das das Handling. Den DateTimePicker.Date sinnvoll vorzubelegen ist natürlich Voraussetzung.

[Delphi.Narium]

Im Ereignis OnUserInput den Eingabestring prüfen und die Änderung nur erlauben, wenn ein gültiges Datum vorliegt.

PS.:

Mir gelingt es nicht bei meiner Delphiversion beim TDateTimePicker was anderes als Ziffern einzugeben. Buchstaben, Sonderzeichen ... werden nicht angenommen und führen zu keinerlei Reaktion seitens der Komponente.

Daher bitte Quelltext und kompilierte Version hier anhängen, so dass man das prüfen kann, eventuell liegt ein Fehler vor, der nur die von Dir genutzte Delphiversion betrifft.

[JanTera]

Danke an Delphi.Narium für die erste hilfreiche Antwort.

Ich kann leider die Kompilierte Version nicht einfach so anhängen, da sie 1. viel zu gross ist und 2. nicht open-source ist.

Ich nehme an, du kannst nur Ziffern eingeben, da du die Eigenschaft ParseInput nicht auf true hast. Leider muss in meinem Fall ParseInput an sein.

Das mit onUserInput werde ich versuchen.

Danke!

PS: Ich benutze delphi XE8

[H.Bothur]

Zitat von JanTera:

Danke an Delphi.Narium für die erste hilfreiche Antwort.

Hilfreich waren auch die anderen Antworten - übrigens auch wenn Du nicht den ganzen Source hier reinstellen kannst dann wärees geschickt gewesen ein Miniprogramm zu erstellen bei genau dieser Fehler vorkommt. Du wirst wohl nicht von den anderen ier Anwesenden erwarten das die das alle bei sich nachstellen, oder ?

Gruß
Hans