![]() |
Exception: Schleife soll nicht abbrechen!
Ich habe ein Programm programmiert in dem in einer Schleife hin und wieder eine Exception auftreten kann. Es werden Dateien eingelesen und manche können nicht gelesen werden, was Delphi dann natürlich in einer Showmessage anzeigt. Wenn man nun auf OK klickt läuft zwar das Programm weiter, die Schleife wird aber beendet.
Was kann ich tun um die Schleife trotz Exception weiterlaufen zu lassen? Ich habe schon viele Foren und Googlesuchen hinter mir und von try..except bis zum globalen Abfangen von Exceptions alles mögliche probiert aber die Schleife hört trotzdem immer auf, auch wenn inzwischen die Showmessage nicht mehr kommt. Kann mir einer von euch weiterhelfen? Danke! |
Re: Exception: Schleife soll nicht abbrechen!
Statt
Delphi-Quellcode:
musst du nur
Schleifenkopf
begin Code end;
Delphi-Quellcode:
benutzen, dann läuft die Schleife weiter.
Schleifenkopf
try Code except Fehlerbehandlung end; |
Re: Exception: Schleife soll nicht abbrechen!
Das war ja gerade das was ich auch als erstes auf meiner Suche entdeckt habe - try except scheint aber nicht zu funktionieren.. Es bricht trotzdem ab.. Oder kommt es auf eine bestimmte Art der Fehlerbehandlung an? Fehler sollen eigentlich nur ignoriert werden.
|
Re: Exception: Schleife soll nicht abbrechen!
Zeig' mal bitte etwas Code - eigentlich müsste der Block alle Fehler schlucken. :glaskugel:
|
Re: Exception: Schleife soll nicht abbrechen!
Hier ein Beispiel:
Delphi-Quellcode:
Falls der Debugger bei jeder Exception stehenbleibt, ist das kein Problem sondern nur Einstellungssache.
var
all_errors : string; i : integer; begin all_errors := ''; for i := 1 to 100 do begin try BerechneIrgendWas(i); except // Exception abfangen und merken // man beachte den Zeilenumbruch #13#10 // wichtig für spätere Fehlersuche ist auch der Schleifenindex on E:Exception do all_errors := all_errors + Format('Zeile %d: %s'#13#10, [i, E.Message]); end; end; // Schleife fertig - Zeit um dem Benutzer die Fehler zu präsentieren if all_errors <> '' then begin ShowMessage('Achtung, folgende Fehler sind aufgetreten'#13#10+ all_errors); // jede weitere Verarbeitung abbrechen Abort; end; end; |
Re: Exception: Schleife soll nicht abbrechen!
Das funktioniert bei ihm doch scheinbar nicht. Ich vermute mal, dass aber der try .. except Block falsch gesetzt wurde, oder der Fehler woanders oder sogar in der Fehlerbehandlungsroutine steckt. :glaskugel:
Mal auf den Code warten .. |
Re: Exception: Schleife soll nicht abbrechen!
Zeig doch mal deinen Code
|
Re: Exception: Schleife soll nicht abbrechen!
Ich würde ja vermuten, dass der vermeintliche Fehler daran liegt, dass beim debuggen der Fehler trotzdem angezeigt wird und das Programm angehalten wird.
|
Re: Exception: Schleife soll nicht abbrechen!
Wenn man das Programm aus der IDE startet werden standardmässig die Try-Exception nicht abgefangen. Die kann man aber ausschalten. (Frag mich aber jetzt nicht wo genau)
|
Re: Exception: Schleife soll nicht abbrechen!
Zitat:
Dieses Anhalten des Programms kann man aber auch noch irgendwo ausschalten, ja. :) Bis denn Bommel |
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:53 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz