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. :?:

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. :thumb:

LG
-iBooot

[Apollonius]

Diese Meldung gibt der Debugger aus. Wenn du das Programm außerhalb der IDE startest, erscheint sie nicht.

[toms]

oder Val verwenden

Delphi-Quellcode:

var 
  I, Code: Integer;
begin
  Val(ComboBox1.Text, I, Code);
  if Code <> 0 then
    Image1.Canvas.Pen.Width := I
  else
    ComboBox1.Text := IntToStr(Image1.Canvas.Pen.Width);

[mkinzler]

Oder TryStrTo<Typ>() oder StrTo<Typ>Def()

[toms]

Zitat:

Zitat von mkinzler

Oder TryStrTo<Typ>() oder StrTo<Typ>Def()

Falls Delphi Version > 5 (was mein Threadersteller nicht der Fall ist)

[mkinzler]

Zitat:

was mein Threadersteller

Teilen wird die TE jetzt untereinander auf :mrgreen: :lol:

[toms]

Zitat:

Zitat von mkinzler

Zitat:

was mein Threadersteller

Teilen wird die TE jetzt untereinander auf :mrgreen: :lol:

mein sollte beim heißen :mrgreen:

[iBooot]

Danke für die schnellen Antworten :thumb:
Also ich lass das jetzt so, da das wirklich nicht mehr angezeigt wird, wenn man nur die startet (also ohne Delphi).
toms Code hat aber leider nicht funktioniert.
Aber naja. mein Programm funzt doch :'D

Danke :thumb:

[toms]

Zitat:

Zitat von iBooot

toms Code hat aber leider nicht funktioniert.

Ich sag dir auch warum: Schreibe

Delphi-Quellcode:

if Code = 0 then

anstatt

Delphi-Quellcode:

if Code <> 0 then

[quendolineDD]

Zitat:

Also ich lass das jetzt so

Wenn du aber mit dem Wert weiter rechnen willst, kann das mal dumme Folgefehler haben.