Delphi-Quellcode:
if
StrToDateDef( DateBeginSucheEdit.text, 0 ) - StrToDateDef( DateBeginSucheEdit.text, 0 ) <= 10
then
begin
// Hier führen wir jetzt mal alles aus, weil die Eingaben sind in Ordnung
end
else
begin
ShowMessage( 'Die Eingaben sind Quatsch! Bitte Wiederholen!' );
end;
Keine Schleife, kein Exit, keine Klimmzüge und überschaubarer.
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)