Delphi-Quellcode:
if (length(lsMinute_b) > 2) or ((liMinute_b) > 60) then
begin
Windows.Beep(2000,250);
if length(lsMinute_b) > 2 then
ShowMessage('Eingabe falsch! Die Anzahl der Stellen für die Minutenwerte hat mehr als 2 Stellen!');
if liMinute_b > 60 then
ShowMessage('Eingabe falsch! Der eingegebene Wert für die Minuten ist grösser 60!');
OutputC.text := 'Eingabe falsch!';
end;
//edit Wo war die rote Warnmeldung?
Julian J. Pracht