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:

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?

[bender251]

Hallo

hate das gleiche Problem. Ich vermute, dass du der Fehler nicht abgefangen wird, wenn du das Programm unter Delphi laufen lässt. Wenn du die Exe asführst sollte Try-Except funktionieren. Um auch unter Delphi den Absturz zu verhindern deaktiviere mal die Option Tools -> Debuggeroptionen -> Integrierte Fehlersuche.

Hoffe ich konnte helfen
Gruß bender251

[Tom]

Zitat von bender251:

Ich vermute, dass du der Fehler nicht abgefangen wird, wenn du das Programm unter Delphi laufen lässt. ...

Ja. Ansonsten ist VAL zu empfehlen zur Überprüfung von Werten, ob diese eine Zahl sind.

[MathiasSimmack]

Ich kann zwar nur für Delphi 5 sprechen, aber da lautet der korrekte Weg: Menü "Tools" -> "Debugger-Optionen" -> Registerseite "Sprach-Exceptions" -> "Bei Delphi-Exceptions stoppen".

[Tonic1024]

Moin...

Zitat von MathiasSimmack:

Ich kann zwar nur für Delphi 5 sprechen, aber da lautet der korrekte Weg: Menü "Tools" -> "Debugger-Optionen" -> Registerseite "Sprach-Exceptions" -> "Bei Delphi-Exceptions stoppen".

bei D7 auch noch...