Exception lässt sich nicht abfangen...

[Hepdepaddel]

Guten Morgen,

ich verzweifle hier an einer eigentlich simplen Sache (dachte ich) :

Code:

BEGIN
  ValFormat(S);

  TRY
    Val(S,Result,c);
  EXCEPT
    Result:=0;
  END;
END;

Nun entsteht beim Aufruf von Val z.B. ein EOverflow. Leider rauscht Delphi7 dann gleich durch: Im Debugger wird die Zeile zwischen Except und End schlicht ignoriert und erst in der globalen Routine meldet sich D7 wieder zu Wort. Finde ich nicht so witzig, denn eigentlich ist dies keine Exception, die dem Anwender so stumpf vor den Kopf gehauen werden soll, sondern ich würde bei Result:=0 gerne eine Meldung der Form "Ihre Eingabe ist nicht korrekt: ..."anzeigen.

Wie fängt man eine Exception bei VAL ab? Oder wie sonst kann man sicher(!) einen eventuell total chaotischen String in einen Wert umwandeln?

Danke für jeden Tipp.

Hepdepaddel