Fehler-Box erzeugen

[robroy85]

hallo liebe Leute!

Mal wieder eine Newbie-Frage!
Ich traue mich sie trotzdem zu stellen, weil
a) ich nicht schüchtern bin
b) schon einige Zeit ohne Ergebnis gegoogelt habe


also ich möchte gerne einen ersatz für diese Zeile finden:
showmessage('Der Pfad'+OpenDialog.Filename+'verweist auf keine korrekte Import-Datei') ; Der Befehl showmessage ist zwar zweckmäßig aber ich hätte gerne noch ein Ausrufe-Zeichen oder ein rotes Kreuz, damit es dem Beutzer mehr ins Auge sticht!
und leider macht showmessage bei mir einen etwas doofen Zeilenumbruch!

Kann ich die Eigenschaften von Showmessage verändern oder muss ich eine andere Funktion nehmen?

Danke schonmal

[Luckie]

Entweder die Methode Messagebox von TApplication oder direkt die API Funktion Messagebox.

[alcaeus]

Hi robroy85,

ich verwende immer MessageDlg:

MessageDlg('Fehler', mtError, [mbOk], 0); Greetz
alcaeus

[shmia]

Am Besten so:
Raise Exception.Create('Der Pfad'+OpenDialog.Filename+'verweist auf keine korrekte Import-Datei'); oder so:
Raise Exception.CreateFmt('Der Pfad %s verweist auf keine korrekte Import-Datei', [OpenDialog.Filename]); Das Auslösen einer Exception bei einem Fehler ist immer besser als die Verwendung von ShowMessage, MessageDlg oder Ähnlichem. (es sei denn, du willst ohne VCL programmieren)

[alcaeus]

Hi shmia,

nicht unbedingt. Es könnte ja sein, dass man dem Benutzer bei einem Fehler Optionen bieten will (Log einsehen oder nicht). Das kannst du nur mit MessageDlg oder MessageBox lösen, nicht aber mit Exception.Raise.

Greetz
alcaeus

[CReber]

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;

[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;

[Luckie]

Eventuell will er ja keine Exception werfen?