Registriert seit: 2. Mär 2004
5.508 Beiträge
Delphi 5 Professional
|
Re: Fehler-Box erzeugen
12. Nov 2004, 14:46

Zitat von Christian Reber:
Muss das dann so?
Delphi-Quellcode:
try
ZugriffWoDerFehlerEntsteht;
except
on e: exception do
Raise Exception.Create(' Der Pfad'+OpenDialog.Filename+' verweist auf keine korrekte Import-Datei');
end;
Eher so:
Delphi-Quellcode:
try
ZugriffWoDerFehlerEntsteht;
except
on e: exception do
begin
// Fehlermeldung geändert, weil:
// ich kann nicht behaupten, dass die Datei nicht korrekt war
// ich kann nur feststellen, dass der Import nicht funktioniert hat.
// (vielleicht war die Datei ja in Ordnung, aber im Zugriff eines fremden Programms)
e. Message := Format(' Fehler beim Importieren von <%s> !'#13#10, [OpenDialog.Filename])+
e. Message; // die ursprüngliche Fehlermeldung bleibt erhalten
Raise; // Exception erneut auslösen
end;
end;
Andreas
|
|
Zitat
|