Problem mit Exception

[Hansa]

Hallo Leute,

wo ist hier ein Fehler:

procedure Tform1.Edit1Exit(Sender: TObject);
var WGnr : integer;
begin
WGnr := 0;
try
WGnr := StrToInt (Edit1.text)
except
ShowMessage ('fehlerhafte Eingabe !');
Edit1.SetFocus;
end;
end;

Trotz try..except - Block kommt Fehlermeldung EconvertError und das Programm verabschiedet sich. Und zwar an der Stelle StrToInt.

Gruß
Hansa

[Christian Seehase]

Moin Hansa,

gehe ich recht in der Annahme, dass der Fehler nur bei Start aus der IDE nicht abgefangen wird?

Wenn ja, müsstest Du nur unter Tools\Debugger Optionen\Sprach-Exceptions den Haken bei "Bei Delphi Exceptions-stoppen" wegnehmen, um das zu verhindern.

[Hansa]

Hallo Christian,

muß weeeeeg, das muß es sein, habe bei Compilereinst. gesucht. Taucht nur in IDE auf. Mach den Haken heute mittag weg.

Gruß
Hansa

[Hansa]

Hi Chris,

Haken ist weg, das wars. In keinem Tutorial wurde darauf hingewiesen oder so, habe zumindest nichts gesehen.

Da sieht man mal wieder, wie wichtig solche Foren für jeden Programmierer sind, sofern nicht nur Egoisten dabei sind.

War ja nicht viel, aber ich hätte noch 2 Tage suchen müssen.

Gruß nach Hamburg
Hansa

[Hansa]

Das war doch zu schnell. Habe die Prozedur global gemacht :

procedure TForm1.AppException(Sender: TObject; E: Exception);
begin
Messagedlg('Fehler : '+ E.Message, mterror,[mbok],0);
end;

procedure TForm1.FormCreate(Sender: TObject);
BEGIN
Application.OnException := AppException;
end;

Für ein einzelnes Feld zu prüfen, habe ich im Except-Block mit Edit1.SetFocus den Cursor gezwungen, solange in dem Feld zu bleiben, bis ein plausibler Wert eingetragen war.

Global geht das aber nicht. Vielmehr muß ich jetzt den Cursor in das entsprechende Feld 'zurückschicken', welches den Fehler produziert hat, egal welches das war! Wie mach ich jetzt das?

Gruß
Hansa