Einzelnen Beitrag anzeigen

Kirchi

Registriert seit: 20. Feb 2006
105 Beiträge
 
Delphi 10.4 Sydney
 
#1

Fehlermeldung unterbinden und Code weiter ausführen

  Alt 7. Jun 2013, 10:27
Hallo zusammen,

ich habe folgendes Problem. Ich möchte Exceptions bei einem Datenbankpost abfangen und das Programm soll in der Schleife weiterlaufen . Folgende Code habe ich:

Delphi-Quellcode:
repeat

..


  try
    dm.qry_files.post;
  except
    on e:exeption do
    begin
        lst_errors.items.add('Fehler: der Post bei folgender Datei ist fehlgeschlagen:');
    end;
  end;

..

dm.qry_folders.next;
until dm.qry_folders.ext;

leider bleibt das Programm stehen und die while schleife wurde beendet.

Im Voraus schon mal besten Dank!
  Mit Zitat antworten Zitat