Alle Edit-Felder auf Eingaben prüfen

[Sharky]

Zitat von Ati:

... Nur vermute ich das die Pünktchen als Eingabe gewertet werden.

In der Theorie müsstest Du das so prüfen können:

Delphi-Quellcode:

function DateEditTest( const aDateEdit : TDateEdit): Boolean;
begin
  result := StringReplace(aDateEdit.Text,' ','',[rfReplaceAll]) <> '..';
end;

Aber ich finde das mit dem try-except besser da so auch falsch Eingaben abgefangen werden.