Falsche Verwendung von try...except...end

[MStoll]

Zitat von smudo:

1.) Nein, wird nicht immer freigegeben. Nach einer Exception wird nur noch der Except-Block ausgeführt. Du musst also auch in den Except-Block das freigeben integrieren.

Hi,

wenn nur noch der Except-Block ausgeführt werden würde, das wäre ja schrecklich. Das ist nicht so! Es kann ja nicht sein, dass man bei ner Exception keine Möglichkeit mehr hat, hinter dem Teil mit der Exception weiterzumachen.

Gruß
Michael

[Sidorion]

Dass das noch niemandem aufgefallen ist:

Zitat:

Delphi-Quellcode:

// in folgendem Beispiel werden Daten aus einer Query gelesen
// Fehler werdem in einem Memo protokolliert und der Lesevorgang geht weiter
// es werden keine Informationen unterdrückt, sondern die Fehlermeldungen werden protokolliert
while not Query1.Eof do
begin
  try
    MachWas(Query1);
  except
    on E:Exception do
    begin
       MemoLog.Lines.Add('Fehler in MachWas');
       MemoLog.Lines.Add(E.ClassName+':'+E.Message);
       MemoLog.Lines.Add('Record: ' +IntToStr(Query1.RecNo);
    end;
   Query1.Next;  // nächster Datensatz
  end;
end;

Hier wird Query1.Next nur gerufem, falls es zu einer Exception gekommen ist. Sobald ein Datensatz durchläuft, wirds ne Endlosschleife. besser:

Delphi-Quellcode:

// in folgendem Beispiel werden Daten aus einer Query gelesen
// Fehler werdem in einem Memo protokolliert und der Lesevorgang geht weiter
// es werden keine Informationen unterdrückt, sondern die Fehlermeldungen werden protokolliert
while not Query1.Eof do
begin
  try
    try
      MachWas(Query1);
    except
      on E:Exception do
      begin
         MemoLog.Lines.Add('Fehler in MachWas');
         MemoLog.Lines.Add(E.ClassName+':'+E.Message);
         MemoLog.Lines.Add('Record: ' +IntToStr(Query1.RecNo);
      end;
    end;
  finally
    Query1.Next;  // nächster Datensatz
  end;
end;

[shmia]

@Sidorion: da hast du natürlich Recht, aber dein Lösungsvorschlag war nicht so gut.

Delphi-Quellcode:

// in folgendem Beispiel werden Daten aus einer Query gelesen 
// Fehler werdem in einem Memo protokolliert und der Lesevorgang geht weiter 
// es werden keine Informationen unterdrückt, sondern die Fehlermeldungen werden protokolliert 
while not Query1.Eof do 
begin 
  try 
    MachWas(Query1); 
  except 
    on E:Exception do 
    begin 
       MemoLog.Lines.Add('Fehler in MachWas'); 
       MemoLog.Lines.Add(E.ClassName+':'+E.Message); 
       MemoLog.Lines.Add('Record: ' +IntToStr(Query1.RecNo); 
    end; 
  end; 
  Query1.Next;  // nächster Datensatz 
end;

Das Query1.Next ist nun an der richtigen Stelle; try..finally wird hier nicht benötigt.

[Sidorion]

Schon, aber Du weißt ja, wie das ist: In fünf Monaten macht da irgendwer ein raise; dran und dann wars wieder keiner