Falsche Verwendung von try...except...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.