Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Exception: Schleife soll nicht abbrechen! (https://www.delphipraxis.net/117333-exception-schleife-soll-nicht-abbrechen.html)

martinf16 16. Jul 2008 00:50


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!

Dax 16. Jul 2008 01:03

Re: Exception: Schleife soll nicht abbrechen!
 
Statt
Delphi-Quellcode:
Schleifenkopf
begin
  Code
end;
musst du nur
Delphi-Quellcode:
Schleifenkopf
try
  Code
except
  Fehlerbehandlung
end;
benutzen, dann läuft die Schleife weiter.

martinf16 16. Jul 2008 01:19

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.

Dax 16. Jul 2008 01:28

Re: Exception: Schleife soll nicht abbrechen!
 
Zeig' mal bitte etwas Code - eigentlich müsste der Block alle Fehler schlucken. :glaskugel:

sx2008 16. Jul 2008 01:56

Re: Exception: Schleife soll nicht abbrechen!
 
Hier ein Beispiel:
Delphi-Quellcode:
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;
Falls der Debugger bei jeder Exception stehenbleibt, ist das kein Problem sondern nur Einstellungssache.

Zacherl 16. Jul 2008 04:02

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 ..

mkinzler 16. Jul 2008 05:30

Re: Exception: Schleife soll nicht abbrechen!
 
Zeig doch mal deinen Code

sirius 16. Jul 2008 07:55

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.

Sharky 16. Jul 2008 08:14

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)

Bbommel 16. Jul 2008 08:59

Re: Exception: Schleife soll nicht abbrechen!
 
Zitat:

Zitat von Sharky
Wenn man das Programm aus der IDE startet werden standardmässig die Try-Exception nicht abgefangen. Die kann man aber ausschalten.

Hm? Neee, nicht ganz: Der Unterschied ist nur, dass bei einem Start aus der IDE heraus bei einer Exception auch der Debugger anspringt und das Programm zunächst unterbrochen wird - nach einem Druck auf F9 oder was auch immer läuft das Programm aber wie mit try...except vorgegeben weiter. Das kann also eigentlich nicht die Ursache für den Fehler sein. (edit: Ähm... es sei denn der Fehler ist das, was sirius meint... :glaskugel:)

Dieses Anhalten des Programms kann man aber auch noch irgendwo ausschalten, ja. :)

Bis denn
Bommel


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:06 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz