Hi.
Auch mit Try-Except und Try-Finally abgefangene Fehler werden angezeigt, wenn (und nur, wenn) man das Programm aus Delphi heraus startet
.
Ansonsten: Solange alle Strings die gleiche Länge und den gleichen Aufbau haben, könntest du prüfen, ob die ersten beiden Ziffern eine Zahl ergeben im Bereich von ... bis ...
So ungefähr:
Delphi-Quellcode:
var
i_tmp : integer
if (TryStrToInt(copy(eingelesener_string, 1, 2))) and (eingelesener_string[3] = '.') and (TryStrToInt(copy(eingelesener_string, 1, 2))) and {... usw ...}
für das Format : 'TT.MM.JJJJ' (z.B. '14.05.1992')