Ich muß dem Originalposter recht geben. Try-Except scheint irgendwie nicht zu funktionieren. Ich habe das jedenfalls bis heute nicht gerafft, wie das funktionieren soll, und habe auch noch nie selbständig eine solche Befehlssequenz in ein Programm einarbeiten können. Nur mal zwei Beispiele:
Delphi-Quellcode:
var a,b:integer;
begin
b:=0;
try
a:=a div b;
ShowMessage('Kein Fehler')
except
ShowMessage('Fehler')
end
end
ergibt die Meldung "Kein Fehler", also wird der except-Teil nicht angesprungen (obwohl eine Division durch 0 angefordert wird, also in meinen Augen ein völlig absurdes Programmverhalten), bei
Delphi-Quellcode:
var c:real;
begin
try
c:=c/0;
ShowMessage('Kein Fehler')
except
ShowMessage('Fehler')
end
end
wird das Programm mit einem Laufzeitfehler (wohl "heftiger" als eine
Exception?) beendet, besser formuliert: abgebrochen.
Fazit: Dieses Sprachkonstrukt ist für mich bis heute (von kopierten Codeschnipseln einmal abgesehen)
wertlos.