try / except bringt ungewollte Fehlermeldung

**iBooot**

Hallo!
Erstmal: Ich habe Delphi 5.
Ich habe mal eine Frage:
Ich habe in meiner Form eine normale ComboBox.
Im OnChange-Ereignis soll jetzt die Image1.Canvas.Pen.Width auf den Wert aus der ComboBox gesetzt werden.
Funktioniert soweit auch.
Auch wenn der Benutzer selbst einen eigenen Wert eingibt (ist ja eigendlich kein Unterschied).
Aber wenn der Benutzer zum Spaß irgendetwas anderes eingibt (Buchstaben o.ä.) gibt Delphi eine Fehlermeldung zurück,
da der Buchstabe (logischerweise) nicht in Integer konvertiert werden kann.
Dann hab ich das mit try.. except gemacht, aber die Meldung kommt immer noch.

markieren

Delphi-Quellcode:

			try

   Image1.Canvas.Pen.Width := StrToInt(ComboBox1.Text); //versucht die Stiftbreite auf den Wert der ComboBox zu setzen

except

   ComboBox1.Text := IntToStr(Image1.Canvas.Pen.Width); //und bei einem Fehler soll die ComboBox zurück auf den vorherigen Wert gesetzt werden.

end;

Und trotzdem kommt die Meldung

Zitat:

Im Projekt projekt1.exe ist eine Exception der Klasse EConverterError aufgetreten. Meldung: ''a' ist kein gültiger Integerwert'. Prozeß wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.

Ich hoffe ihr könnt mir helfen.
Danke schonmal im vorraus.

LG
-iBooot

try / except bringt ungewollte Fehlermeldung

try / except bringt ungewollte Fehlermeldung

Forumregeln