Nur mal so am Rande
Was möchtest du mit
Delphi-Quellcode:
try
...
except
on E:
Exception do
Showmessage(E.
message);
end;
erreichen?
Soll bei einer
Exception ein Dialog mit der Fehlermeldung erscheinen?
Dann entferne diesen
try .. except
Block, denn die Anwendung macht das von ganz alleine!
Was du jetzt hast ist eine Funktion, die bei einer
Exception die
Exception-Message ausgibt (der
Exception-Typ fällt unter den Tisch) und dann irgendeinen nicht kontrollierbaren Rückgabewert an den Aufrufer zurückliefert.
Wenn du Pech hast, dann siehst du diese Fehlermeldung und direkt danach die Meldung "Hurra".
Wem soll das denn nun etwas sagen?
Irgendwie gibt deine Funktion egal wie nur gesichert ein
True
heraus, ein
False
wird nie explizit gesetzt. Wahrscheinlich musst du deswegen auch den Rückgabewert auf
True
prüfen, sonst siehst du sehr selten Hurra.