Fehler mit Try - Except abfangen -> funktioniert nicht!

**mirko2000**

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:

markieren

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:

markieren

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?

Fehler mit Try - Except abfangen -> funktioniert nicht!

Fehler mit Try - Except abfangen -> funktioniert nicht!

Forumregeln