Exception abfangen und ausgeben funktioniert nicht

[Alex.G]

Morgen!

Ich will mit einer try...except.. eine Exception abfangen und diese ausgeben.

Delphi-Quellcode:

on e:Exception do
  Application.MessageBox('Es trat ein Fehler auf:'+#10#13+e.Message, 'Fehler', 16);

Leider bekomme ich vom Compiler einen Fehler:

Code:

[Fehler] uOwnSql.pas(113): Inkompatible Typen: 'String' und 'PAnsiChar'

Was mache ich falsch?

[DeddyH]

Zitat:

Delphi-Quellcode:

function MessageBox(const Text, Caption: PChar; Flags: Longint = MB_OK): Integer;

Sobald Du konkatenierst wird der Wert automatisch als String angesehen. Also besser so:

Delphi-Quellcode:

on e:Exception do
  Application.MessageBox(PChar('Es trat ein Fehler auf:'+sLineBreak+e.Message), 'Fehler', 16);

[edit] Übrigens ist der Zeilenumbruch unter Windows #13#10. Nimm doch besser die Konstante sLineBreak, dann musst Du Dir um die Reihenfolge keine Gedanken machen. [/edit]

[mkinzler]

Delphi-Quellcode:

on e:Exception do
  Application.MessageBox(PChar('Es trat ein Fehler auf:'+sLineBreak+e.Message), 'Fehler', 16);

[Alex.G]

Super, funktioniert! Danke für die schnellen Antworten! :thumb:

[DeddyH]

Achja, und e.Message ist wohl auch ein String IIRC, von daher geht es sowieso nicht ohne Cast. Wozu eigentlich die 16 und nicht die dafür vorgesehene Konstante? Die würde den Code bedeutend lesbarer machen.