Ich würde an deiner Stelle eine StringListe erzeugen oder der Funktion von Aussen übergeben um darin alle Fehlermeldungen zu sammeln.
Delphi-Quellcode:
except
on e :
Exception Do
begin
fehlerliste.Add(Format('
Entry %d: %s|%s',[i, e.Classname, e.
Message]));
end;
end;
Die Fehlerliste wird dem Benutzer am Ende präsentiert ohne dass der Benutzer jeden Fehler einzeln quittieren muss.
(ein riesen Vorteil, wenn es mal 50 oder mehr Fehler werden sollten)
Ausserdem wird auch die Entry-Nummer festgehalten; das ist wichtig, wenn man die Ursache der Fehler herausfinden möchte.