Hallo!
Ich möchte in eine Variable (drad : integer) einen neuen Wert mit der InputBox reinschreiben! Wenn ich aber in die InputBox einen nicht numerischen Wert eingebe z. B. Buchstaben oder Null-String kommt eine Fehlermeldung:
Code:
Im Projet Project1.exe istz eine
Exception der Klasse EConvertError aufgetretgen. Meldung: ''TEST' ist kein gültiger Integerwert'. Prozess wurde angehalten. MIt Einzelne Anweisung oder Start fortsetzen
Hier noch der Quellcode:
Delphi-Quellcode:
procedure TForm1.mnuDradClick(Sender: TObject);
begin
try
drad := strtoint(InputBox('Wer für drad', 'Bitte neuen Wert für drad eingeben:', FloatToStr(drad)));
except
showmessage('Fehler');
end;
end;
Kann mit einer verraten, warum nicht die MessageBox "Fehler" erscheint?