Einzelnen Beitrag anzeigen

danielA

Registriert seit: 10. Jun 2002
Ort: Hamburg
72 Beiträge
 
Delphi XE7 Enterprise
 
#1

Funktion nach except Block nicht verlassen

  Alt 27. Nov 2003, 11:13
Hallo erstmal,

Wie schaffe ich es nach dem auslösen einer Exception nicht aus der Funktion zu fliegen.

Delphi-Quellcode:
Function Konvertiere : integer;
begin
  try
    Result:=strtoint('Hallo');
  except
    Result:=0;
  end;
  beep;
end;
Also das beep noch auszuführen.

Hintergrund der Sache ist natürlich nicht so ein einfaches Beispiel. Ich muß mich in einer Schleife mit mehreren DBServern verbinden. Sind die jedoch gerade heruntergefahren oder haben eine Störung bleibt mein System an der Stelle mit einer Exception stehen.

Schonmal Danke im vorraus.

Gruß Daniel
  Mit Zitat antworten Zitat