Fehler-Box erzeugen

[shmia]

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;